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I.  INIHODOCTJON 
A.  GlXEBAL  DESCBIPT3CB 

This  interactive  prototype  automates  the  existing  manual 
system  cf  maintaining  individual  training  information  on 
OSHC  personnel.  The  term  "system"  is  used  throughout  this 
thesis  tc  mean  hardware  and  software.  The  software  consists 
cf  custcaized  csde  which  overlays  a  commercially  available 
data  base  management  system  (DBMS).  The  system  is  targeted 
for  implementation  at  the  infantry  or  artillery  battalion  or 
subordinate  unit  level.  However,  with  minor  codifications, 
primarily  increasing  the  limitation  on  the  number  cf  subor¬ 
dinate  units  and  increasing  the  size  of  the  database,  the 
system  could  be  used  ty  any  U.S.H.C.  organization,  including 
the  Harire  Air  Ground  Task  Force  (HAGTF)  .  No  prior  user 
experience  in  computer  or  automated  systems  is  assumed.  In 
addition  to  generating  standard  reports,  the  system  provides 
limited  decision  support  capabilities,  responds  to  non¬ 
standard  data  base  inquiries,  and  includes  facilities  for 
data  base  maintenance. 

I,  E1CKGB0PHD 

Individual  training  subjects  in  the  U.S.  Marine  Corps 
encompass  a  variety  cf  otherwise  unrelated  training  topics 
that  are  conducted  and  evaluated  periodically.  The  common 
characteristic  of  individual  training  vis-a-vis  unit 
training  is  that  training  and  testing  relate  to  individual 
skills  and  individual  levels  cf  performance.  Since  the 
focus  is  cn  individual  training  and  individual  testing,  data 
is  maintained  fer  each  individual  in  a  unit  and  conse¬ 
quently,  the  system  is  very  data  intensive. 
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Individual  training  includes  subjects  such  as  "essential 
subjects",  physical  fitnsss,  rifle/pistol  qualifications, 
career  training,  and  military  occupational  specialty  (2CS) 
training,  Each  subject  or  grouping  of  subjects  typically 
includes  its  own  set  of  training  and  testing  requirements. 
Bor  example,  some  individual  training  subjects  require 
proficiency  demonstration  only  once  during  an  entire  career 
while  otters  must  be  evaluated  annually.  In  total  indi¬ 
vidual  training  information  includes  approximately  60  sepa¬ 
rate  elements  of  information  that  must  be  maintained  for 
each  Karine.  Individual  Training  Records  (ITR's)  are  tradi¬ 
tionally  maintained  manually  at  the  company  level.  A  data 
base  consisting  of  2C0  records  and  10,000  data  elements  it  a 
company  size  unit  is  tot  uncommon.  In  addition  to  data  base 
maintenance  ,  which  includes  frequent  creation,  deletion, 
and  update  cf  records,  the  data  base  is  often  used  to 
provide  training  management  information  concerning  the 
current  training  status  of  the  unit  or  as  a  basis  for  devel¬ 
oping  future  training  plans. 

It  is  the  contention  cf  this  thesis  that  the  system  can 
be  operated  and  maintained  by  a  technically  unsophisticated 
user  at  a  reasonable  cost. 

C.  OBJECTIVES 

The  objective  of  this  thesis  is  to  design  and  implement 
a  prototype  system  that  is  simple  to  use  and  that: 

1.  Haintains  individual  training  records  for  a  USflC 
battalion ; 

2.  Provides  standard  reports  upon  request; 

3.  Provides  nonstandard  reports  upon  request; 

4.  Demonstrates  a  decision  support  application; 

5.  Frovides  a  data  base  maintenance  capability. 
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C.  imFCBHEHT 


The  system  is  used  and  maintained  by  persons  wi*h  no 
prior  experience  with  computers  and  with  little  prior 
trainirg  cn  this  system.  The  system’s  data  base  requires 
frequent  maintenance.  Approximately  a  30X  record  turnover 
rats  (i.e.,  30%  of  cld  records  will  be  deleted  and  30^  new 
records  will  be  inserted  into  the  data  base)  is  expected 
each  y«ar.  Addit ior ally,  records  will  be  modified  at  the 
rate  cf  approximately  50  data  fields  per  work  day  for  each 
company  (based  on  an  average  strength  of  150  Marines  per 
compary)  .  The  physical  environment  envisioned  is  a  typical 
office  setting  with  no  unique  system  requirements 
ant  icipated. 

I.  S1STIH  C SIR  ACT  ERISTICS 

The  following  system  characteristics  ire  listed  ir.  order 
cf  iipcrtar.ee. 

ojse 

The  system  is  simple  to  operate  and  maintain.  It 
requires  nc  extended  training  sessions  and  it  provides 

prompts  to  the  user. 

2.  Reliability 

The  reliability  of  the  hardware  and  the  DBMS  is 

beyond  tie  scope  of  this  thesis.  The  code  written  tc  imple¬ 
ment  this  design  is  the  user-system  interface.  Accordingly, 
to  ensure  the  integrity  of  the  system,  the  DBMS  remains 

transparent  and  inaccessible  to  the  user.  The  overall  reli¬ 

ability  cf  the  system  is  high.  To  this  end,  the  system 
includes  the  following  provisions: 

a.  Menu  driven 

1  3 
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b.  No  possibility  cf  accidantal  erasure  of  data 

bass. 

c.  No  possibility  cf  user  to  "escape”  or  default  to 

EBBS. 

2 .  Ccst 

The  costs  of  a  mi crccomputer  and  the  proprietary 
software  required  tc  run  the  system  are  lew  compared  to 
mainframe  or  aini-cosputer  application. 

u .  Expapdabil^t  y  cf  data  base 

The  data  base  can  be  expanded  subject  to  memory  and 
EBBS  constraints.  Tte  larger  the  data  base  the  slower  the 
systet  will  respond  tc  user  requirements.  This  is,  however, 
an  acceptable  tradeoff. 

of  f unct ior.s 

The  system  can  be  easily  expanded  tc  include  added 
functions.  This  facility  has  bean  implemented  by  incorpo¬ 
rating  a  xodular  structure  in  the  design.  A  module  can  be 
added  cr  modified  with  little  difficulty. 

6 •  Speed  of  operation 

The  speed  of  the  system  is  relative  to  the  size  of 
the  data  base.  However  in  all  cases  compared  to  the  present 
manual  system  it  is  much  faster. 

I.  SOBBIBY 

1 .  Scc££  o£  Development 

This  thesis  includes  the  determination  of  system 
requirements,  system  feasibility,  system  design  and  review, 
and  i iplemer.+a ticn  of  a  functional  prototype. 
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•  C£QC££t 

Ihe  purpose  cl  this  thesis  is  to  demonstrate  feasi¬ 
bility  cf  the  concept:  A  fully  automated  individual 

training  record  management  system  for  a  battalion  size  unit 
can  he  iipleaented  cn  a  microcomputer.  The  system  car.  be 
developed  and  operated  at  a  reasonable  cost.  Furthermore, 
the  system  can  be  operated  and  maintained  by  persons  having 
no  prior  computer  experience  after  little  training. 


II.  SYSJEH  CESCEI  PTIC8  A  HD  HE£OI REM  ENTS 

1.  IBEG1  IHFORH  ATIQS 

Ihe  user's  input  consists  of  a  sequence  of  menu  prompted 
responses.  Each  user's  response  is  either  a  specific 
request  to  the  system  for  data  base  maintenance,  a  standard 
report,  or  data  necessary  tc  generate  the  desired  nonstan¬ 
dard  report. 
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E.  S1SIIB  SPBCIPICAIIOiS  < FOHCTION1I) 

1  •  draining  Data 


The  system  is  capable 
training  data  for  at  least 
information  is  maintained  for 
a.  Hame/SSN/person  al 

t.  Bank 

c.  Unit  (coipany  and 

d.  Annual  training 
subjects,  leadership. 


of  developing  and  maintaining 
600  Marines.  The  following 
each  individual: 
data 

platoon) 

requirements  status  (essential 
SSCO/NCO  training  ,etc.) 


e.  Rifle/pistol  qualifications  status  (current 
year) 

f.  nos  qualifications 


g.  An  unformatted  data  field  to  be  utilized  as 
desired  by  the  user.  It  may  be  used  tc  maintain  the 
following  kinds  of  information: 

(1)  Formal  schools  attended. 

(2)  Local  schools  attended. 
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(3)  MCI  courses  completed. 

(4)  Participation  in  training  exercises/ 

training  deployments. 

2.  Cata  £ase  Maintenance 

Maintenance  cf  the  data  base  is  simple  and  presides 
positive  user  control  at  all  times  (i.e.,  user  inputs  data 
and  views  updated  individual  training  record  before  data  is 
stored  into  memory)  . 

3 •  FgPgrt  Fcrnats 

Most  standard  reports  ar6  retrievable  in  a  statis¬ 
tical  mode  cr  in  a  urit  roster  mode. 

a.  Statistical  Mode 

The  statistical  mode  report  provides  the  total 
cr  the  percent  of  a  unit  that  has  satisfied  a  particular 
user  specified  training  criterion  (What  percent  cf  a  unit  is 
swim  qualified?)  . 

t.  Roster  Mcde 

The  roster  mcde  report  provides  names  of  persons 
in  a  specified  urit  that  have  satisfied  a  training 
criterion. 

4  •  Data  Retrie  val 

All  standard  reports  are  retrievable  by  unit  desig¬ 
nator  (e.g.,  battalion,  com pany/platoon) .  Training  data  is 
retrievable  by  individual,  by  unit,  or  by  a  user  defined  set 
of  attributes  (e.g.,  all  sgts  in  A  CO)  utilizing  the 
nonstandard  reports  option. 
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5  •  standard  g^Ectts 

Th€  system  provides  the  following  standard  reports: 

a.  Unit  Roster 

The  Unit  Roster  Report  will  display  in  alphabet¬ 
ical  order  the  NAME,  RANK,  and  PRIMARY  MOS  for  each  member 
cf  the  selected  unit  cr  subunit. 

t.  Personal  Eata  Report 

The  Personal  Eata  Report  displays  for  each- 
member  cf  a  unit  or  subunit  all  personal  data  including 
NAME  ,  SSN  ,  RANK,  PRIKARY/S  ECCNDARY  MOS,  UNIT/SUBUNIT  NAME, 
JOIN  £  AT  E ,  EAS,  BIRTEDATE,  HEIGHT,  WEIGHT  and  a  ore  char¬ 
acter  boolean  comment  block. 

c.  Essential  Subject  Training  Requirements  Status 

'Report 

The  Essential  Subject  Training  seguireaents 
Status  Report  displays  the  percent  and  total  number  of  uni*, 
or  subunit  members  that  have  completed  an  Essential  Subjec. 
requirement  or  the  PET  (physical  fitness  test). 

d.  Annual  Training  Requirements  Status  and  Rcster 


Reports 

The  Training  Status  Report  displays  for  each 
essential  subject,  the  percent  of  the  unit  that  has  success¬ 
fully  ccopleted  each  training  element  and  the  total  number 
of  unit  members  that  have  completed  each  training  element, 
la  addition,  the  Training  Status  Report  includes  completion 
statistics  for  PFT1  ,  PFT2 ,  SWIH£0AL,  RIFLE  QUAL,  and  PISTOL 
CUAL. 

The  Training  Roster  Report  displays  in  alphabet¬ 
ical  order  each  member  of  the  selected  unit  or  subunit  and 
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his  complete  training  status  for  the  current  year.  If  a 
training  element  has  been  successfully  completed  for  the 
current  year,  a  letter  corresponding  to  that  training 
element  will  be  shewn.  An  symbol  indicates  that  a 

training  element  has  not  been  completed.  For  example, 
"PIRS1  AID  AE*H  +  *B**  CF"  indicates  that  elements  ABDEF  and  H 
have  hjen  completed  and  five  cf  the  eleven  elements  have  not 
been  completed  (i.e.,  C,G,I,J  and  K) . 

e.  Rifle/Pistol  Qualifications  Status 
and  Bcstei  Reports 

The  Sarksmanshi p  Status  Report  will  display  the 
qualification  results  for  the  unit  or  subunit  members  that 
have  fired  the  rifle  cr  pistol  for  qualification  during  the 
current  year.  Also,  the  percent  that  have  qualified  in  each 
category  (eg.  EX,SS,HM,UN)  and  current  year  results  for 
rifle  and  pistol  will  be  shewn.  The  pistol  qualification 
results  include  only  those  members  required  to  fire  the 
pistol  fer  qualification. 

The  Marksmanship  Boster  Report  will  display  in 
alphabetical  order  the  NAME,  RAiNK,  t  AT  E  OF  QU ALI7ICATI0:, , 
and  QUALIFICATION  RESULTS  for  each  memuer  cf  the  sele-'ced 
unit  cr  subunit.  Current  year  results  only  will  be 
displayed. 

f.  MOS  Qualification  Status  and  Roster  Reports 

The  MOS  Roster  Report  groups  the  selected  unit 
cr  subunit  by  primary  MOS  and  RANK  and  then  displays  in 
alphabetical  order  the  NAME,  RANK,  PRIMARY  MOS  AND  SECONDARY 
MOS  cf  all  members  in  the  unit  or  subunit.  This  report  will 
function  regardless  cf  the  number  or  different  types  of 
MOS's  contained  ir.  a  unit. 
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g.  Individual  Training  Record  Report 

The  Individual  Training  Record  Report  presets 
the  user  for  the  name  of  a  neater  in  the  data  base.  Aft~r  a 
Dame  is  entered  the  complete  individual  training  record  for 
that  individual  is  displayed.  This  includes  all  training 
data  included  in  the  data  base  on  this  particular  individual 
(i.e.,  essential  subject  status,  PFT  status,  current  year 
rifle/pistol  qualification  results,  swim  qualification 
status)  and  personal  data  (i.e.,  name,  rank,  SSN,  unit, 
primary  EOS). 

h.  Swim  Qualification  Report 

The  Swim  Qualification  Report  displays  in  alpha¬ 
betical  order  for  each  member  of  the  unit  or  subunit 
selected  NAME,  RANK,  DNIT  and  current  SWIM  QUAL  results. 

6.  Cec  1  si  on  Suoj:c£t  Subsystem 

The  purpose  of  this  component  is  simply  tc  demon¬ 
strate  the  decision  support  potential  of  this  system  using 
the  available  data  base. 

1 .  Ncr.sta ndard  Exports 

The  system  generates  user  defined  non-standard 
reports.  These  reports  are  created  from  attributes  that  the 
user  determines.  A  maximum  of  three  attributes  can  be 
selected. 

8 .  System  Controls 

Safety  ccntrcls  are  provided  to  ensure  that  the  data 
base  cannot  be  accidentally  written  over  or  otherwise 
destroyed.  Also,  the  system  includes  an  executive  access 
control  facility,  and  control  for  "read  only"  access  or 
"read/write"  access.  System  access  is  permitted  in  one  of 
the  fcllcvirg  three  levels: 
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a.  Data  Base  administrator  level  is  intended  for 
tbe  sole  use  of  the  Data  Base  Administrator  and 
includes  full  system  capabilities  (install  system, 
initialize  data  base,  modify  access  directory, 
create/  delete/modify  data  base  records)  . 

t.  Cr aate/acdify  data  base  level 

c.  Restricted  to  retrieve  information  in  report 
format  only  from  the  data  base. 

9.  Cut  put  Mode 

The  prototype  is  capable  of  sending  reports  to  a  CRT 
screen.  with  minor  icdif ications  the  user  can  be  giver,  an 
option  cf  screen  or  printed  copy  output. 

C.  B1C03BEE  SPECIFICATIONS  (10B-P0 NOTIONAL) 

The  following  is  a  list  of  non-functional  system  speci- 
f icat ions : 

1.  The  system  is  interactive. 

2.  A  hiqh  school  graduate  with  nc  computer  background 

can  retrieve  standard  reports  with  no  more  than  cne 
hcur  of  system  training. 

3.  A  high  school  graduate  with  no  computer  background 

can  create  and  maintain  the  data  base  with  nc  mere 
than  six  hours  of  training. 

4.  A  high  school  graduate  with  no  computer  background 

can  retrieve  a  standard  report  after  one  hour  of 
training. 

5.  A  high  school  graduate  with  no  computer  background 

can  retrieve  e  multiple-criteria  nonstandard  repert 
after  an  additional  cne  hour  of  training. 

6.  Tte  system  can  be  easily  modified  tc  har.ge  r<=ccrd 
formats,  field  formats,  and  standard  Report  formats 
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without  a  major  redesign  or  reprogramming  effort.  A 
major  redesign  is  considered  any  design  effort  tha4- 
involves  changing  a  module  interface. 

7.  The  system  can  retrieve  standard  reports  ir.  15 
uinutes  or  less. 

8.  The  system  can  retrieve  non-standard  reports  in  30 
uinutes  or  less. 

9.  The  system  dees  "out  of  bounds"  checking/par  a  meter 
checking  on  all  quantitative  data  and  standard 
inputs. 

10.  The  system  automatically  converts  rifle,  pistol,  and 

PPT  raw  scores  into  cor-- esponding  qualifications 
(e.g.  245  rifle  raw  score  = =>  Expert). 

B.  Dill  STRUCTURE  DIPI1ITIOHS  'DATA  DICTIONARY) 

1  •  introduction 

The  data  dictionary  should  be  maintained  by  the  Data 
Ease  Administrator  and  documentation  should  be  accessible  to 
all  users.  This  data  dictionary  facilitates  maintenance, 
the  integrity  of  the  information  in  the  data  base  and 
provides  information  on  data  relationships. 

2 .  Data  Base  Management  System 
a.  Commercial  Software 

The  Data  Ease  Management  System  (DBMS)  kernel  is 
a  cc mnercially  available  software  system.  The  program  dBase 
II,  a  relational  DBMS,  provides  all  of  the  necessary  attri¬ 
butes  (availability,  record  capacity,  user  friendly  environ¬ 
ment.  etc.).  Therefore,  dBase  II  (Ashtor.-Tate  version  2.4) 
is  used,  and  data  structures  are  implemented  by  the  dBase  II 
systei. 


2  2 
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data  Base  Files 


The  information  maintained  on  each  individual  is 
organized  in  a  relational  data  base.  The  foliovir.c  records 
cr  tuples  are  defined  for  each  individual  (  The  number  of 
characters  per  field  is  defined  in  the  data  element 
dictionary,  see  Appendix  A)  : 

(1 )  £er scnal  information  Record.  SSN,  name, 
military  occupational  specialty  (BOS)  ,  rank,  weight,  height, 
com pany/platoon ,  birttdate,  joindate,  expiration  of  active 
service  (E A 2)  ,  and  gas  mask  size. 

(2)  Essential  Subject  Training  Require  men ts . 
SSN,  9  essential  subjects,  and  physical  fitness  information. 

(3)  Rifls/P  is  to  1/ Swimming  Quali  f  ica  tior.s . 

SSN,  rifle  score  current  year,  pistol  score  current  year, 
swimmirg  gualif  icaticns,  and  dates. 

(4 )  Information  Miscellaneous.  SSN,  11  fields 
fcr  trailing  information. 

(5)  Com  men  t .  SSN;  .  250  characters  that  can  be 
utilized,  at  the  tsers  discretion,  for  form a 1/in  formal 
school  data,  deployments  information,  MCI  courses  completed 
cr  specific  comments. 

(6)  $ec c;ity.  SSN,  name,  user  identification 
code,  password,  and  authorization  level. 
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III.  B ET HOD 0 LOGY  AND  DESIGN 


A.  HITHCDOLOGY 
1  .  Scf  tware 

At  the  center  of  the  software  subsystem  is  the  IBM 
Personal  Computer  Disk  Operating  System  {DOS  2.0).  System 
requirements  for  PC  CCS  operating  systems  includes: 

a.  8088  based  microprocessor 

t.  12 8 K  bytes  of  RAM  memory 

c.  Cursor  addressable  24  line  by  80  column  CRT 

The  software  layer  immediately  outside  DOS  2.0  is 
dBase  II  (versicn  2.4)  which  is  a  commercially  available 
relational  data  base  application  system  developed  and 
distributed  by  ASHTON-TATE.  dEase  II  is  a  data  base  manage¬ 
ment  tool  that  permits  manipulation  of  user  designed  data 
base  files  using  English-like  commands  which  collectively 
define  a  query  language. 

The  layer  of  code  contiguous  with  and  completely 
surrounding  dBase  II  is  what  we  designed  and  wrote  to 

satisfy  the  thesis  objective.  The  code  is  written  in  the 

dBase  II  query  language.  This  layer  o£  code,  that  will  be 
referred  tc  as  the  "cuter  layer",  is  designed  to  be  the  only 

interface  between  tie  system  user  and  the  system.  All 

systei  entries,  data  base  transactions  or  manipulations, 
report  inquiries,  and  system  exits  are  through  the  cuter 
layer  of  code.  This  is  an  important  and  necessary  design 
consideration  for  the  following  reasons: 
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e.  Simplicity 


In  order  tc  satisfy  the  system  requir?jert  for 
simplicity,  it  was  necessary  tc  impose  a  software  layer 
between  the  user  and  the  dBase  II  software.  This  cuter 
layer  presents  to  tfce  user  a  series  of  menus.  The  user 
responds  tc  each  menu  prompt  by  pressing  the  keyboard  key 
that  corresponds  to  action  desired.  The  user's  response  in 
turn  initiates  a  cede  sequence  that  causes  the  desired 
acticn  tc  be  taken.  If  additional  user  input  is  required 
to  complete  the  acticn,  th°  code  causes  another  menu  to  be 
presented  tc  the  user,  Each  menu  represents  an  exhaustive 
list  cf  pcssible  options  that  aay  be  selected  by  the  user. 
This  sequence  of  menu  presentation  and  user  response  is 
repeated  until  the  desired  action  has  been  adequately 
defined.  At  this  pcint  the  code  executes  using  as  variables 
the  input  provided  by  the  user.  Therefore,  this  cuter  layer 
includes  all  of  the  code  that  determines  the  functions 
available  tc  the  user  and  simplifies  the  operation  of  the 
syste  m. 

t.  Layering 

If  the  user  had  access  to  the  BOS  2.0  cr  the 
dBase  II  layer  he  could  easily  modify  the  outer  layer  code. 
This  acticn  could  cause  a  system  failure.  Therefore,  this 
eventuality  must  be  prevented.  Another  function  of  the 
cuter  layer  is  to  prevent  access  to  inner  layers  cf 
soft  ware . 

c.  Bata  Integrity 

Since  the  data  base  files  contain  personal  data, 
that  needs  to  De  protected,  it  is  important  to  limit  access 
to  the  data  base.  Also,  uncontrolled  access  to  da*a  base 
files  can  result  in  lest  data  or  catastrophic  destruction  of 


the  data  tase.  To  preclude  this,  the  outer  layer  Frcviies 
system  security  and  ensures  data  integrity. 

d.  File  Maintenance 

Whenever  data  tase  files  are  accessed,  house¬ 
keeping  functions  need  to  be  performed  such  as  opening  or 
closing  files,  joining  files,  creating  temporary  files  or 
deleting  temporary  files  when  no  longer  needed,  and  creating 
cr  releasing  variables.  The  outer  layer  automatically 
performs  these  functions  for  the  user. 

E.  SCFTSiB?  DBS IGS 

1.  Structured  Programming 

Jlthough  the  dBase  II  query  language  is  not  a  struc¬ 
tured  programming  language,  structured  programming  techni¬ 
ques  were  employed  during  the  software  design.  This  was 
done  to  reduce  system  maintenance,  to  simplify  system  design 
and  tc  make  future  changes  tc  the  system  easier  tc  imple¬ 
ment.  The  following  techniques  were  emphasized  during  he 
design  phase  of  the  development  cycle. 

a.  Top  down  cesign  and  hierarchical  structure 

t.  Modularization 

c.  Information  hiding 

d.  In  general,  efforts  were  made  to  maximize  module 

cohesion  and  to  minimize  coupling  between  modules. 

2  •  ler-do  wn  Do  sign 

The  overall  design  concept  was  the  top-down  design 
cr  step-wise  refinement  technique.  This  concept  provides 
the  capability  to  work  from  a  simple  idea  and  expand  it  to 
the  final  complex  product.  This  process  facilitates  orderly 
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and  logical  development  of  the  design  steps*  The  first  step 
in  the  process  is  tc  determine  how  the  data  or  an  input  is 
transforsed  to  produce  the  desired  output.  The  concentra¬ 
tion  is  cn  'What'  is  done  not  'How"  it  is  done.  with  this 
information  data  flow  diagrams  are  produced.  These  diagrams 
should  he  considered  arrows  pointing  to  'black  boxes'  which 
manipulate  the  data.  The  actual  mechanisms  of  the  manipula¬ 
tions  are  net  important  at  this  point  in  the  design  process. 
The  diagrams  shew  the  information  passing  through  the  system 
and  the  transformation  of  data  in  the  system.  These 
diagrams  are  produced  at  ar  increasing  level  of  detail  until 
further  expansion  does  not  provide  a  significant  change. 

From  the  data  flow  diagrams,  hierarchical  charts  are 
produced.  Any  information  modifications  that  are  related, 
are  grouped  into  the  same  module.  Once  the  hierarchy  is 
established,  algorithms  are  developed  using  structured 
programming  techniques.  These  algorithms  are  then  converted 
into  code.  The  code  is  implemented  using  the  top  down 
programming  technique,  this  technique  implements  the  highest 
levels  of  the  hierarchy  first.  As  lower  level  modules  are 
coapleted  and  tested,  they  ara  added  to  the  existing 
modules.  This  technique  simplifies  a  complicated  program. 
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Figure  3.  1  Initial  Data  Flow  Diagram 

user.  Therefore,  a  Data  Base  Management  System  (DBMS)  was 
incorporated  to  maintain  the  data  base.  The  DBMS  requires 
specific  commands  as  input  and  outputs  information  (see 
Figure  3.2)  . 

The  3TRM  System  is  designed  tc  have  a  restricted  access. 
The  user  must  enter  the  proper  identification  for  the  system 
to  allow  access.  The  access  function  produces  a  valid/ 
invalid  ecknow le dgem ent  to  the  remaining  portion  cf  the  ITRM 
systei.  Commands  and  data  pass  through  the  Command 
Determiner  which  selects  the  *  ype  of  action  the  systei  is  to 
execute.  The  three  functions  called  by  the  Command 
Deter  liner  are: 

1.  Standard  Command  Determiner 

2.  kcnstandard  Command  Determiner 


3. 


Maintenance  Handler 


i 

figure  3.2  Data  flow  Diagram  Expansion  for  DBAS 


These  three  functions  interface  with  tne  DB“.c  dv  rrcducir.o 
EEMS  ccmtands.  The  DB.1S  then  communicates  to  the  Report 
Generator  the  information  necessary  to  produce  the  desired 
reports.  figure  3.3  shows  the  second  expansion. 

The  access  control  of  any  system  car.  be  very  complex. 
This  system  requires  tbs  user  to  input  an  identification 
cede  and  c  password.  The  system  then  matenes  “'esc  items  tc 
insure  an  authorized  user.  If  access  is  v  the  user's 

authorization  level  is  passed  to  tne  res*:  c r  *•?<■  system.  If 
access  is  invalid,  the  user  gets  on=  more  opportunity  tc 
enter  a  correct  access  sequence.  If  tne  user  fails  again 
the  system  terminates  the  session.  The  information  required 
tc  handle  the  access  function  is  stored  ir.  th*  The 
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Figure  3.3  Data  Flow  Diagraa  Expansion  2 


pramise  cf  the  entire  system  is  to  prompt  the  user  irt 
entering  the  correct  response,  thereby  reiucina  the  r.eed  fo 
any  pricr  experience.  The  IT  F  M  system  prompts  the  user  ro 
the  proper  access  cedes  and  informs  aim  when  an  error  ha 
teen  made.  Figure  3.<*  displays  the  Access  data  flow  expar: 
sio  n . 

Fact  cf  t'n<=  Command  Determiners  prompts  the  user  fo 
resoccses  from  which  C 3 M S  commands  are  derived.  The  rcpcr 
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figore  3.4  Data  Flow  Expansion  for  Access  Function 

generator  then  interprets  the  DBMS  replies  an!  prompts  the 
user  tc  format  the  reports  (Figure  3.5). 

The  data  flew  diagrams,  demonstrate  the  simple  and 
logical  flew  of  the  cats  through  the  ITRS  System..  The  next 
step  is  tc  loaically  organize  the  flow  diagrams  onto  a  hier¬ 
archy  of  modules  that  accomplish  the  data  transformations 
depicted  in  tne  data  flew  diagrams. 
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standard  reports,  and  simple  query  capabilities  for  the  user 
through  nonstandard  reports.  The  system  must  be  initialized 
and  sequential  control  established.  The  ITRMS  Master 
Control  Module  was  created  to  handle  the  functions  cf  system 
control  and  initialization.  This  module  is  the'  highest 
level  of  the  hierarchy,  level  1.  All  access  functions  are 
consolidated  in  cue  module,  the  Access  Module.  The  Command 
Determiner  Module  controls  which  functions  the  user  car. 
invoke  and  checks  fcr  proper  authorization  level.  The 
Access  and  Command  Eeterniner  Modules  comprise  the  second 
level  hierarchy. 

Th  '  .  .dard  Command  Determiner,  Nonstandard  Command 
Eetermi.  .,  and  the  Maintenance  Handler  are  combined  with 
portions  cf  the  Report  Generator  to  fora  three  modules,  the 
Standard  Report  Generator,  the  Nonstandard  Report  Generator, 
and  the  Maintenance  Module.  These  three  modules  interface 
with  the  EEMS  and  preface  DEMS  commands.  In  addition,  they 
process  the  information  returned  from  the  DBMS  and  produce 
V®  the  appropriate  reports.  Consolidation  of  determiner  and 

report  generation  functions  simplifies  the  structure  cf  the 
systei  and  facilitates  subsequent  maintenance.  The  three 
modules.  Standard  Feport  Generator,  Nonstandard  Report 
Generator,  and  Maintenance,  comprise  rhe  third  level  of  the 
hierarchy.  The  lowest  layer  cf  the  hierarchy  contains  the 
DBMS.  The  hierarchy  displayed  in  Figure  3.6  demonstrates 
simplicity  of  design. 

E.  HCDOIE  EESCBIPTICBS 

1.  ITEMS  Master  Control  Module 
a.  Module  Purpose 

The  ITRMS  Master  Control  Module  initializes  the 
system  and  controls  the  logical  sequencing  of  all  modules. 
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Figure  3.6  I1BH  Systew  Hierarchy 
fc.  Module  Punction 

The  ITPMS  Master  Control  Module  initiates  and 
coordinates  all  internal  system  processes  (except  operating 
system  functions).  Tne  module  responds  to  internal  cues 
(free  ether  modules)  and  to  environmental  cues  (iron  the 
user)  .  The  module  controls  the  access  to  all  modules  and 
shields  the  user  freo  the  resident  operating  system.  The 
module  will  not  allow  the  user  to  exit  to  the  operating 
system. 

3  U 
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interfaces 


The  master  control  module  is  at  level  1  which  is 
the  highest  level  ir  the  module  hierarchy.  It  interfaces 
Kith  two  modules  at  level  2,  access  Module  and  Command 
Determiner  Module. 

c.  Design  Decisions 

This  module  can  be  easily  modified  to  handle  any 
expansions  by  adding  rev  module  interfaces. 

2 .  *cce§s  Module 

a.  Module  Purpose 

The  access  Module  prompts  the  user  for  an  iden¬ 
tification  code  and  password.  The  module  determines  if  the 
user  has  authorized  access  and  assigns  the  corresponding 
level  cf  access. 

t.  Module  Function 

.  The  Access  Module  requests  the  user’s  identifi¬ 
cation  cede  and  password.  It  validates  the  ID  to  ensure  the 
user  is  cn  the  access  list  and  to  ensure  that  the  password 
corresponds  with  the  user  ID.  If  the  user  ID  is  ncr  on  the 
access  list  an  appropriate  message  is  returned.  If  the 
password  does  net  correspond  with  the  user  ID  (after  two 
iterations)  ,  an  appropriate  message  is  displayed  and  the 
session  is  terminated.  Once  the  correspondence  of  IE  and 
password  has  been  determined,  the  module  passes  the  access 
authorization  level  tc  the  command  determiner.  The  authori¬ 
zation  level  is  used  to  determine  which  menu  options  are 
available  tc  the  specific  user. 


c.  Interface 


The  Access  Module  receives  control  instructions 
from  the  IT RMS  Master  Control  Module.  The  Access  Module 
interfaces  directly  with  the  EEHS  to  manipulate  the  security 
file.  After  the  access  module  completes  its  processing  and 
if  the  user  is  authorized  access,  the  level  of  access  is 
passed  tack  to  the  ITEMS  Master  Control  Module. 

d.  Design  Decision 


The  design  allows  modifications  to  be  made  to 
the  access  system  without  side  effects. 

3.  Command  Determiner  Module 

a.  Module  Pcrpose 


either  ;te 


The  Command  Determiner  Module  directs  control  to 
Standard  Report  .Generator,  Nonstandard  Report 


Generator,  cr  the  Maintenance  Module, 
t.  Module  Punction 

The  Command  Determiner  asks  the  user,  through  a 
standard  set  of  menu  prompts,  what  task  he  wishes  to  accom¬ 
plish.  Based  on  the  user  responsa,  the  Command  Determiner 
Module  transfers  control  tc  cne  of  the  thr°e  lower  level 
modules.  Tha  Command  Determiner  Module  also  checks  to  see 
if  the  user  has  access  to  that  module.  If  access  is  not 
authorized  then  an  appropriate  message  is  displayed. 

c.  Interfaces 


The  Command  Determiner  is  called  by  the  ITEMS 
Master  Control  .Module  ar.c  passes  control  tc  either  xhe 
Standard  Report  Generator,  Nonstandard  Report  Generator,  or 
the  Maintenance  Module. 


36 


c 


Int  erf  act 


The  Access  Module  receives  control  instructions 
from  the  ITBMS  Master  Control  Module.  The  Access  Module 
interfaces  directly  kith  the  DEHS  to  manipulate  the  security 
file.  After  the  access  module  completes  its  processing  and 
if  the  cser  is;  authorized  access,  the  level  of  access  is 
passed  tack  to  the  ITEMS  Master  Control  Module. 

d.  Design  Decision 

The  design  allows  modifications  to  be  made  to 
the  access  system  without  side  effects. 

3.  Command  Determiner  Module 
a.  Module  Ptrpose 


The  Command  Determiner  Module  directs  control  to 
either  ohe  standard  Feport  .Generator,  Nonstandard  Report 
Generator,  or  the  Maintenance  Module. 

t.  Module  Function 


The  Command  Determiner  asks  the  user,  through  a 
standard  set  of  menu  prompts,  what  task  he  wishes  to  accom¬ 
plish.  Eased  on  the  user  response,  the  Command  Determiner 
Module  transfers  control  tc  one  of  the  thr°e  lower  level 
modules.  The  Command  Determiner  Module  also  checks  to  see 
if  the  user  has  access  to  that  module.  If  access  is  not 
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c.  Design  Decisions 

This  nodule  allows  the  separation  of  the 
Standard  Report  Generator,  the  Nonstandard  Report  Generator, 
and  the  Maintenance  Module.  This  separation  facilitates 
changes  and  reduces  nodule  coupling. 

4  .  tic p standard  Ee^ort  Generator  Module 

a.  Module  Purpose 

The  Nonstandard  Report  Generator  allows  the  user 
to  query  the  data  base  in  a  controlled  manner.  The  queries 
are  generated  freffl  a  series  of  prompts  to  the  user. 

b.  Module  Function 

The  module  prompts  the  user,  through  a  series  of 
menus,  tc  produce  the  desired  query.  when  the  module 
receives  the  appropriate  prompted  input  from  the  user,  the 
nonstandard  command  generator  accesses  the  DBMS  for  the 
requested  information.  The  information  is  then  formatted 
and  displayed. 

c.  interfaces 

The  command  Determiner  Module  calls  this  module 
fcased  on  user  selection.  The  Nonstandard  Report  Generator 
interacts  directly  with  the  user.  This  module  constructs 
the  queries  and  communicates  them  to  the  DBMS.  It  also 
processes  the  information  received  from  the  DBMS  and  formats 
the  data  into  a  report. 

i.  Design  Decisions 

If  there  is  a  future  need  to  modify  the  types  of 
queries  that  are  available  to  the  user,  the  changes  will  be 
confired  to  this  module. 
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5.  St  andar  d  R ep crt  Generator  Module 

a.  Module  Purpose 

The  Standard  Report  Generator  produces  the  D EM S 
commands  that  vill  create  the  standard  reports.  These 
reports  are  produced  cn  a  regular  basis,  therefore,  it  is 
advantageous  to  standardize  the  reports. 

t.  Module  Function 

The  Standard  Report  Generator  displays  option 
menus  to  the  user  and  translates  user's  responses  ir.tc  the 
necessary  sequence  cf  DBMS  instructions.  fcfter  the  user 
decides  %hich  standard  reports  will  fulfill  his  needs,  the 
module  formats  standard  reports  and  displays  the  user 
requested  information.  The  Standard  Report  Generator 
includes  a  CSS  subset. 

c.  Interfaces 

The  Standard  Repcrt  Generator  is  called  by  the 
Command  Determiner.  The  Standard  Report  Generator  communi¬ 
cates  with  the  DEMS  and  processes  information  from  the  DBMS 
to  produce  its  reports. 

d.  Design  Decisions 

This  module  was  designed  to  take  advantage  of 
the  fact  that  many  applications  are  routine  in  nature. 
These  are  programmed  in  a  single  module  and  significantly 
simplify  access  to  routine  reports.  If  any  of  these  routine 
reports  need  modification,  the  change  can  be  isolated  to 
this  icdule. 
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6.  £ai  r.te na nee  Module 

a.  nodule  Purpose 

The  Maintenance  Module  provides  users  th*  capa¬ 
bility  tc  create,  delete,  and  update  the  data  base  records. 
Necessary  system  functions  reside  in  this  module.  The  Data 
Base  Administrator  maintains  the  access  file  frem  this 
module  and  initializes  the  system  to  his  specific  unit. 

b.  nodule  Function 

To  update  a  record,  the  Maintenance  Module 
extracts  the  data  in  each  data  base  file  for  a  selected  unit 
member.  The  data  is  combined  into  a  single  screen  display 
representing  all  data  contained  in  the  system  on  the  indi¬ 
vidual.  Tc  update  a  field,  the  data  in  the  field  can  be 
typed  over  with  current  data.  Upon  completion,  each  data 
element  is  read  and  returned  to  its  proper  location  in  the 
appropriate  data  base  file.  Creation  of  new  records  is 
accomplished  in  the  same  manner.  Records  are  deleted  by  a 
single  deletion  commard.  Therefore,  this  command  usage  is 
limited  tc  avoid  accidental  and  malicious  destruction  of 
dat  a . 


c.  Interfaces 

The  Maintenance  Module  i nterf ace s  with  the 

CcmmaEd  Determiner  and  the  DBMS. 

c.  Design  Decisions 

All  data  modifications  are  implemented  using  the 
Maintenance  Module.  The  physical  and  legreal  structure  of 
all  data  base  files  is  hidden  from  the  user. 
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17.  I H  ELE  BE  HTATION 


1.  CCBS1H AINTS 
1.  dEASE  II 

Following  is  a  list  of  dBase  II  constraints  that 
affected  the  design  cf  this  system  and  consequently  imposed 
constraints  on  the  i iplemen tat icn  of  the  Individual  Training 
Becord  banagement  system: 

a.  No  more  than  65535  records  can  be  used  in  a 
single  data  tase  file. 

t.  No  aore  than  32  fields  can  comprise  any  single 
record. 


c. 

cne 


No  more  than  254  characters  can  be  placed 
field. 


any 


d.  No  more  than  1COO  characters  can  be  placed  into 
any  single  record. 


e.  No  aore  than  64  variables  can  be  located  in 
jerking  storage  at  any  given  time. 


2  .  Bar  dware 

Following  is  a  list  of  development  hardware 
constraints  that  affected  the  design  of  this  system  and 
consequently  impose  constraints  on  the  implementation  cf  the 
Individual  Training  Becord  Haragement  System. 

a.  Bain  memory  storage  (RA3)  is  512K. 


t.  Two  double  density  double  sided  disn  drives  were 
used  for  a  tctal  cf  720K  bytes  of  disk  storage. 


% 
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c.  The  IBM  EC  8088  microprocessor  operates  a:  u.7 

MHZ . 

To  maximize  the  amount  of  data  that  the  system  main¬ 
tains,  a  B  AM  dish  drive  is  created.  This  RAM  drive  allows 
the  program  to  b9  copied  into  memory  and  enables  the  full 
use  cf  the  two  dish  drives  for  data.  Use  of  the  RAM  drive 
increases  the  speed  of  the  program  by  allowing  the  various 
call  d  routines  to  be  read  more  quickly  into  the  working 
storage.  The  memory  access  time  for  the  IBM  PC  is  much 
fseter  than  disk  access  time.  This  increase  in  speed 
reiuces  the  response  time  to  the  user.  The  objective  cf  the 
prototype  is  to  handle  the  data  required  to  maintain  a 
battalion  sized  unit's  training  records.  The  amount  of 
storage  required  for  800  individuals  is  approximately  two 
zegabytes.  This  allows  for  the  overhead  that  the  DEMS  uses 
and  the  room  necessary  to  execute  functions  that  require  the 
creation  cf  temporary  files.  The  available  storage  in  the 
prototype  system  limited  the  test  data  base  to  a  company 
sized  unit. 

3  •  Environmental 

The  following  environmental  considerations  constrain 
the  system  by  placing  added  requirements  on  the  ultimate 
design . 

a.  Inexperienced  users 

b.  Frequent  turnover  of  personnel 

c.  Limited  training  time  available 

d.  Hardware  maintenance  must  be  readily  available 
from  outside  ccmmercial  sources. 

e.  Software  Maintenance  is  not  intended  tc  be 
performed  at  the  user  level  because  computer 
programming  skills  are  not  necessarily  available. 


f.  No  unusual  requirements  for  physical  environment 
such  as  smoke  or  dust  free  atmosphere,  unusual  elec¬ 
trical  power  characteristics  or  hookup,  or  vibration 
dampening,  are  required. 

B.  CtSEBAL 

The  cuter  layer  consists  cf  six  separate  modules  divided 
into  three  levels.  This  section  will  briefly  describe  the 
routines  thst  make  uf  each  nodule  and  the  system  output  from 
each  roctine.  The  listings  of  the  programs  are  in  the 
appendices,  and  can  te  examined  for  further  detail. 

1 .  ITEMS  Ha  ste r  Control  Hodule 

a.  Master  Routine  (Master,  prg) 

This  module  ccntrcls  the  sequencing  cf  the 
program.  It  is  an  endless  ‘loop  which  requires  the  couputer 
to  te  eitner  turned  off  cr  re-booted  to  exit  the  ITRM 
System.  The  Master  routine  requires  the  user  to  switch 
diskettes.  The  user  receives  a  message  to  physically 
exchange  the  program  diskettes  with  the  data  diskettes.  If 
the  diskette  exchange  is  not  made  or  is  made  improperly  the 
user  is  prompted  again  to  make  the  proper  exchange. 

The  Access  Module  is  initiated  by  the  Master 
Routine  and  if  a  valid  indication  is  returned,  the  Master 
Routine  will  initiate  the  Command  Determiner  Module.  Once 
the  Ccmmand  Determiner  Module  is  exited,  the  Master  Routine 
loops  tc  the  beginning  to  receive  a  user  ccmmand  tc  initiate 
the  Access  Module. 

t.  Pause  Routine  (Pause. prg) 

This  roctine  provides  a  time  delay  for  th* 
systen.  When  this  routine  is  called,  it  delays  the  func¬ 
tioning  of  the  system  for  approximately  rnirty  sec ends. 


This  routine  is  used  to  delay  error  messages  that  are 
displajed  fcr  a  short  period  of  time. 

2.  access  Ficdule 

a.  Access  Routine 

The  Access  Routine  prompts  the  user  for  an  iden¬ 
tification  code.  Ib6  routine  then  instructs  the  DBMS  to 
search  fcr  that  code  in  the  security  data  base  file.  If  the 
code  is  not  found  a  message  is  displayed  and  the  user  can 
try  again.  If  the  cede  is  found  the  corresponding  password 
from  the  data  base  is  stored  in  memory.  The  user  is  then 
prompted  for  the  password.  When  it  is  entered,  if  it  dees 
not  Batch  the  password  ir.  memory  an  error  message  is 
displayed  and  the  user  can  try  again.  If  tha  password  that 
the  user  enters  matches  the  password  in  memory,  a  valid  user 
state  is  passed  to  the  Master  Routine  with  a  user  authoriza¬ 
tion  level. 

3.  Command  Dete* liner  Module 

a.  Command  teterminer  Routine  (Coddet.prg) 

The  Command  Determiner  Routine  displays  tc  the 
user  a  menu.  The  user  can  choose  to  initiate  the 
Nonstandard  Report  Generator,  Standard  Report  Generator, 
Data  Intry  and  System  Functions  (Maintenance)  ,  Help,  or 
Cult.  The  user  enters  the  appropriate  letter  which  is 
processed  b)  a  case  statement  that  initiates  the  selected 
module,  figure  4.1  displays  the  Command  Determiner  Menu. 

t.  Hsl p 2  Routine  (Help2.prg) 

The  Help2  Routine  provides  information  to  the 
user  cn  the  functions  that,  can  be  initiated  from  the  Command 
Dateninei  and  the  Maintenance  Module.  The  information  is 
presented  to  the  user  to  help  in  the  selection  of  the 
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USMC  INDIVIDUAL  TRAINING 
RECORD  MANAGEMENT  SYSTEM 


I 

MAIN  MENU 

SELECT  ONE  OF  TSE  FOLLOWING  OPTIONS  BY 
ENTERING  1HE  APPROPRIATE  LETTER 

D...DATA  ENTRY  AND  SYSTEM  FUNCTIONS 
S... STANDARD  REPORTS 
N,. . NONSTANDARD  REPORTS 
H . • . H  E1P 
Q.. . Q  CIT 

SELECT  OPTION  ==  =  ==>; 


Pigure  4.1  Command  Determiner  Mena 

appropriate  module  ard  is  net  designed  to  explain  the  func¬ 
tioning  of  the  entire  system.  The  systems  built-in  prompts 
walk  the  user  through  the  necessary  steps  to  accomplish  the 
desired  task. 

4 .  Ncnstandayd  Report  Generator  Module 

a.  Nonstandard  Report  Routine  (Nostdrpt. prg) 
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attribute  and  attribute  description.  Attributes  are  field 
naaas  such  as  RANK,  COMPANY,  RFLQUAL,  etc.  Up  to  three 
attributes  from  any  data  base  files  (the  data  base  file 
location  is  invisible  to  the  user)  may  be  specified  by  the 
user-  Multiple  attributes  are  automatically  joined  fcv  the 
routine  using  a  logical  "and"  operation.  The  routine 
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employs  a  series  of  case  statements.  For  each  attribute 
selected,  the  attribute  name  is  stored.  Slctdesc.prg  is 
called  which  stores  an  attribute  description  such  as  E5  (for 
BANK)  Ot  A  CO  (for  COMPANY)  or  EX  (for  RFLQUAL)  .  After  the 
user  has  finished  selecting  attributes  and'  attribute 
descriptions,  the  routine  identifies  the  correct  database 
files  and  either  creates  a  temporary  file  containing  the 
needed  information  cr  ,if  cnly  two  database  files  are 
involved,  primary  and  secondary  files  are  identified.  The 
report  is  then  displayed.  Figure  4.2  depicts  the  sequence 
cf  screen  displays  for  attributes  and  descriptions  of 
"COMPANY  is  A  CO"  .ABC.  "RANK  is  E5"  .AND.  "PLATOON  is  1ST 
ELAT". 


NONSTANDARD  REPORT  GENEBATOR 

LOCATE  ALL  MAFINES  THAT  SATISFY  THE  FOLLOWING; 


<ATTRI8UTE> 

<DESCRIPTOR> 

COMPANY 

IS 

A  CO 

RANK 

IS 

25 

PLATOON 

IS 

1ST  PLAT 

ERE SS  'ENTER'  TC  CONTINUE 


Figure  4.2  Attributes  and  Descriptors  Display 

t.  Nonstandard  Help  Routine  (Nost dhl ?.  pr g) 

This  routine  responds  to  the  user's  request  fcr 
"HELP"  while  in  the  Nonstandard  Report  Menu.  It  displays  a 
brief  explanation  of  the  attribute  and  attribute  description 
process . 
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c.  Select  Attribute  Routine  (Sictarti. prg) 


This  routine  prompts  the  user  to  select  attri¬ 
butes.  After  the  first  and  second  selection  the  user  is 
asked  if  he  wants  to  select  another  attribute  (cnly  three 
attributes  are  permitted,  therefore  after  the  third  attri¬ 
bute  and  attribute  description  set  have  been  selected  the 
routine  automatically  executes  the  user  request).  If  the 
respcase  is  yes,  the  selection  procedure  is  repeated.  This 
process  is  continued  until  the  user  answers  nc  or  three 
attributes  have  been  selected.  The  routine  locates  the 
appropriate  data  base  files  and  displays  the  NAME,  SSN,  and 
attribute  information  for  each  record  that  satisfies  the 
user’s  specified  criteria. 


Select  Descriptor  Routine  (Slctdesc.  prg) 


This  routine  prompts  the  user  to  select  attri¬ 
bute  descriptions.  Each  attribute  description  is  stored 
into  a  memory  variable  for  later  use  when  the  database  files 
are  searched.  An  attribute  description  is  selected  fcr  each 
attribute . 


5 •  St and^r d  R epcrt  Gen e rater  Mod ule 

a.  Standard  Report  Routine  (Stdrpt.prg) 
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LETTER 


STANDARD  REPORT  SELECTION 
SELECT  REPORT  BY  ENTERING  THE  APPROPRIATE 

A.  .  .UNIT  ROSTER 

B.  ..TRAINING  STATUS  REPORT 

C.  ..TRAINING  ROSTER  REPORT 

D.  ..INCIVIDGAL  TRAINING  RECORD 

E.  ..HABRSMANSHIP  STATUS  REPORT 

F.  ..MARKSMANSHIP  ROSTER  REPORT 

G.  ..«OS  STATUS  REPORT 

H.  ..HOS  ROSTER  REPORT 

I.  ..PERSONAL  DATA  REPORT 

J.  ..EST  STATUS  REPORT 

K.  ..EST  ROSTER  REPORT 

L.  .  .SWIM  QUALIFICATION  REPORT 
E.  .  .HELE 

C. ..QUIT 

SELECT  CETION  ====>: 


I 

I 


t 


Figure  4.3  Standard  Report  Menu 

t.  Select  urit  Routine  (Slctunit. prg) 

This  routine  prompts  the  user  tc  select  the  size 
and  naie  cf  the  unit  (i.e.f  battalion,  company,  platcon)  tor 
the  report  generation.  Th9  user  responds  with  a  letter  that 
corresponds  to  a  user  installed  company  or  platcon 
desigraticn . 

c.  Unit  Roster  Routine  (Unitrost. prg) 

This  is  a  control  routine  which  creates  the 
personnel  roster  for  the  unit  specified  by  the  user's 
response  to  the  Slctunit  Menu,  Figure  4.4  displays  a  copy 
cf  the  Personnel  Roster  Report. 

<3.  Training  Status  Routine  (Trngstat .  prg) 

For  the  selected  unit,  this  routine  calculates 
the  total  number  of  training  elements  completed  for  each 
training  category.  For  eratrple,  the  training  category 
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UNIT  RCSTER 


NAME 

RA  KK 

PRIMARY 

BAKER,  STEVE  N. 

E4 

031  1 

CARY,  R.  V. 

E5 

031  1 

CASTIN,  D.  P. 

El 

031  1 

DCNNELY ,  R.  G. 

E6 

0331 

PRESS  ’ENTER’  TO 

CONTINUE 

Figure  4.4  Personnel  Roster  Report 

"HISICRI"  consists  of  three  training  elements  (A,  B,  C) .  A 
percent  completed  figure  is  calculated  for  each  training 
element  by  dividing  the  total  training  elements  completed 
(EX.  ZZAHIS,  Z  ZB  BIS ,  Z'ZCHIS)  by  the  total  number  of 
personnel  it  the  unit  (ZZTOTAL)-  Both  the  totals  for  each 

element  and  the  percent  completed  figures  are  shewn  (see 
figure  4.5}  . 

e.  Training  Count  Routine  (Cntest.prg) 

This  routine  counts  the  number  of  essential 
■ubject  training  elements  that  have  been  completed  it  the 
unit  or  subunit  specified, 

f.  Qualification  Ccunt  Routine  (Cntqual .  prg) 

This  routine  saves  all  memory  variables  in  a 
memory  file  (ZZTCTAL)  and  then  counts  the  number  of  persons 
that  have  not  completed  SWIMQUAL,  RPLQUAL,  PSTQUAI  and 
persons  in  the  unit  net  required  to  qualify  (NA)  . 
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TRAINING  STATUS  REPORT 


- , 

I 

I 


CODE 

CF  CONDUCT... 

42 

PERCENT 

COMPLETED 

A  ...  75 

80 

EERCENT 

COMPLETED 

3.  .  .  144 

48 

PERCENT 

COMPLETED 

C. . . 86 

BARIKE 

CORPS  HISTORY .  . 

.  73 

PERCENT 

COMPLETED 

A. . . 1 31 

82 

PERCENT 

COMPLETED 

B. . .  147 

66 

EERCENT 

COMPLETED 

C. . .  1  19 

CLCSE 

ORDER  DRILI... 

46 

PERCENT 

COMPLETED 

A. . . 83 

64 

PERCENT 

COMPLETED 

B. . .  1  15 

79 

PERCENT 

COMPLETED 

C. . .  142 

PRESS  ’ENTER1  TC  CONTINUE 


Figure  4.5  Training  Status  Report 

g.  Training  Foster  Routine  ( Trngrost  .prg) 

This  rottine  provides  the  Training  Res  ter 
Report.  It  starts  at  the  top  of  the  Pers.dbf  and  leeks  at 
each  record  individually.  If  a  record  corresponds  tc  the 
unit  selected  by  the  user,  the  routine  Trngrpt.prg  is  called 
which  collects  and  displays  the  training  data  that  corre¬ 
sponds  tc  the  current  Pers.dbf  record  (e.g.  ,  If  the  user 
wants  training  data  cn  every  member  of  1ST  PLAT,  A  CO, 
Trngrost. prg  locates  each  record  in  the  Pers.dbf  which 
belongs  tc  1ST  PLAT,  A  CO.  Trngrpt.prg  then  displays  the 
training  data  from  the  appropriate  data  base  files.). 
Information  on  one  individual  is  displayed  in  six  rows. 
Four  sets  cf  data  are  displayed  per  screen.  The  user 
presses  the  "enter"  key  to  scroll  forward  to  each  succeeding 
screet  display. 
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h.  Training  Eoster  Format  Routine  (Trngrpt.  prg) 

This  defines  a  coded  report  format  which 

displajs  COC,  HIS ,  EKS ,  COD,  INT,  TAC,  NBC,  PFT1CLSS, 

FFT2C1SS,  ONI  and  AID  for  each  member  of  the  unit  cr  sukunit 

selected. 

i.  Barksmanship  Status  Routine  (Mksstat . prg) 

This  routine  creates  a  temporary  file  which 

contains  the  current  year  rifle  and  pistol  qualification 
results  for  each  member  in  the  selected  unit  or  subunit. 
The  results  are  summed  by  qualification  category  for  the 
rifle  and  pistol.  Percentages  are  calculated  and  displayed 
in  a  summary  status  report  which  is  automatically  displayed 
on  the  screen.  From  this  module  a  simple  decision  support 
subacdule  .may  be  called  at  the  discretion  of  the  user.  If 
the  user  desires  to  analyze  his  remaining  rifle  range  quotas 
and  compare  them  with  his  tctal  number  of  range  requirements 
for  the  current  year,  he  may  elect  to  "Analyze  Rifle  Range 
Quotas"  (See  Quota  Study  Routine  for  a  more  complete 
description.).  Figure  4.6  displays  the  Marksmanship  Status 
Report . 

j.  Convert  Dnit  Routine  (C  vrtun  it .  prg) 

This  routine  stores  the  ram  or  the  company  and 
platoon  selected  (urit  and  subunit)  by  the  user  during 
routine  ’Slctunit'.  This  is  necessary  because  when  the  user 
selects  a  unit  and  subunit,  it  is  done  by  menu  selection. 
Accordingly  the  only  thing  stored  into  memory  is  the  corre¬ 
sponding  letter  from  the  menu  provided  by  Slctunit.prg  (A, 
E,  C,  I,  E)  .  Soae  screen  displays  require  the  unit  name 
(e.g.,  "A  CC"  vice  "A"  )  so  a  conversion  is  necessary. 
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M  ARK  SB  AN  S  H  IE 

STATUS 

REPORT 

SIILE  EXPERT.  .. 

48 

PISTOL  EXPERT. . . 

3 

RIFLE  SH  ASPS H COTE  F . . 

.  36 

PISTOL  SHARPSHOOTER. 

.  .0 

RIFLE  MARKSMEN.  . . 

48 

PISTOL  MARKSMEN.  .  . 

2 

UNQUALIFIED. . . 

16 

UNQUALIFIED. . . 

0 

PERCENTAGES 

RULE  EXEERT.  .. 

32 

PISTOL  EXPERT. . . 

60 

RIFLE  SHARPSHOOTER.. 

.  24 

PISTOL  SHARPSHOOTER. 

.  .0 

RIFLE  MARKSMEN. . . 

32 

PISTOL  MARKSMEN... 

40 

UNQO ALIFIED.  . . 

11 

UNQUALIFIED . . . 

0 

PRESS  'ENTER'  TO  CONTINUE 

_ 

Figure  4.6  Bar ksmanship  Status  Report 

k.  Quota  Study  Routine  (Qtastudy.prg) 

The  Qtastudy.prg  and  the  Quctapad.prg  make  up 
the  decision  support  submodule.  This  module  is  used  by 
Kksstat.Frg  and  displays  the  range  quotas  tha-  remain  for 
the  current  year.  The  current  month  is  extracted  frcm  the 
log  cn  date.  The  range  quotas  for  each  unit  are  stored  in  a 
memory  file  during  the  annual  initialization  procedure.  Th* 
appropriate  sot  of  range  quotas  for  the  unit  involved  is 
retrieved  and  stored  into  memory  variables.  Summary  infor¬ 
mation  is  provided  concerning  the  relationship  between 
remaining  range  quota  requirements  and  remaining  range  quota 
allocations.  Dpon  ccnclusicns  of  the  module  the  user  may 
return  tc  the  Standard  Report  Menu  or  to  a  scratch  pad  to 
revise  quota  assignments.  Revised  quota  assignments  from 
the  scratch  pad  can  either  be  permanently  saved  in  the  range 
quota  memory  file  cr  ignored.  See  Appendix  s  for  a  mere 
detailed  description. 
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1.  Quota  Scratch  Pad  Routine  (Quctap&d.  prg) 

This  module  gives  the  user  an  opportunity  to 
interactively  modify  the  remaining  monthly  rifle  range 
quotas  for  his  unit.  This  can  be  done  an  unlimited  number 
of  times.  Each  ti*e  the  screen  display  returns  tc  the 
actual  monthly  allocation  as  base  data.  After  each  itera¬ 
tion/  the  new  set  of  range  guctas  is  totaled  and  compared  to 
the  number  of  rifle  range  quotas  required  by  the  unit  for 
the  remainder  of  the  year.  A  comment  is  displayed  which 
indicates  the  net  result  (scratch  pad  quotas  less  than 
requirements,  scratch  pad  quctas  greater  than  requirements, 
or  scratch  pad  quotas  equal  to  requirements).  However,  if 
the  user  elects  to  permanently  replace  the  monthly  quota 
allocation  in  memory,  ne  may  dc  so  by  selecting  the  ’'Replace 
Current  Quotas"  cpticn. 

o.  Marksmanship  Roster  Routine  (Mksr cst .  prg) 

This  routine  creates  a  temporary  file  which 
includes  NAME,  RPLQtJAI,  RFLDATE,  PSTQOAL,  PSTDATE  for  each 
member  in  the  selected  unit  or  subunit.  a  standard  repcr* 
format  (B:  Mrksrpt)  is  used  to  display  the  Marksmanship 
Poster  Report  (see  Figure  4.7). 

n.  KOS  Status  Routine  ( Mosst at .  pr g) 

This  routine  produces  the  MQS  Status  Report. 
Each  type  of  MOS  in  the  specified  unin  or  subunit  is  counted 
and  totaled,  regardless  cf  the  type  or  number  of  different 
KOS '  s  in  the  particular  unit  or  subunit.  The  results  are 
then  displayed  by  MOS  and  by  rank  (see  Figure  4.8). 

c.  MOS  Roster  Routine  ( Mcsrcst .  prg) 

This  is  a  control  ro uriue  which  creates  ihe 
Personnel  Roster  for  the  unit  or  subunit  specified  by  the 
user's  response  to  the  Slctunit  Menu  (see  Figure  4.9). 
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Figure  4.7  Harks mans hip  Roster  Report 


MOS  STATES  REPORT  A  CO,  3RD  PLAT 
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0311 
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8 

0111 

E2 

12 
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E3 
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E4 

8 

03  11 

E5 

3 

Figure  4.8  HOS  Status  Report 

p.  Personnel  Data  Routine  (Persdata.  prg) 

This  is  a  control  routine  which  creates  the 
Ferscrrel  Roster  for  the  unit  or  subunit  specified  by  the 
user's  response  to  tie  Slctunit  Henu. 

q.  Personnel  Data  Fermat  Reunite  (Sosrpt . frm) 

This  defines  a  dEASE  II  report  format  which  has 
already  been  determined  and  is  stored  ir.  memory. 
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Figure  Q.9  BOS  Bcster  Report 
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r.  EST  Status  Routine  (Eststat .  prg) 

This  routine  creates  a  temporary  file  that 
includes  all  essential  subject  and  PPT  fields  from  the 
Ist.dtf  for  members  in  a  user  specified  unit  or  subunit. 
From  this  temporary  file  the  routine  counts  the  total  number 
of  unit  members  that  have  completed  all  elements  in  each 
training  category.  The  E3T  Status  Report  is  displayed  and 
includes  totals  for  each  training  category  and  the  percent 
completed  (see  Figure  4.10)  . 

s.  EST  Count  Routine  (Cntest.prg) 

This  is  a  short  routine  chat  counts  the  total 
training  categories  containing  an  "*M  which  indicates  a 
training  element  has  not  been  completed  (i.e..  It  counts  the 
number  of  training  categories  that  currently  include  one  or 
more  training  elements  that  have  not  been  completed). 

t.  EST  Roster  Routine  (Estrost.  prg) 

This  is  a  control  routine  which  creates  the 
Personnel  Pester  Report  for  the  unit  or  subunit  specified  by 
the  user's  response  tc  the  Slctur.it  Menu. 
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EST  STATUS  FEFCRT 


CCDE  CF  CONDUCT. . .  42  PERCENT  COMPLETED. . .76 

■H1FINI  CORPS  HISTCFY.  ..  84  PERCENT  COMPLETED _ 151 

CLCSE  OFEER  DRILL...  39  PERCENT  COMPLETED _ 70 

INTERIOR  GUARD. . .  63  PERCENT  COMPLETED. ..  1  1  3 

FIRST  AID...  8  PERCENT  COMPLETED. ..  14 

PEESS  *.NTER*  TO  CONTINUE 


Figure  4.10  EST  Status  Report 

u.  EST  Report  Format  Foutine  (Estrpt.prg) 

This  routine  formats  and  displays  the  EST  Roster 
Report.  It  is  called  by  Estrcst. prg. 

v.  Swim  Qualification  Routine  (svimqual .  prg) 

This  routine  displays  the  Swim  Qual  Report  for 
the  selected  unit  or  subunit.  The  Swim  Qual  Report  consists 
of  each  Marine’s  NAME,  RANK,  UNIT,  and  swimming  qualifica¬ 
tion  status.  At  the  end  of  the  report,  summary  data  is 
displayed  which  includes  the  totals  for  each  qualification 
category  and  the  overall  total  for  the  unit  or  subunit. 
Figure  4.11  is  a  copy  of  the  Swimming  Qualification  Status 
Report. 

«.  Swim  Report  Routine  (Swimrpt .  prg) 

This  routine,  called  by  Swimqual. prg  counts  and 
stores  the  number  cf  personnel  in  the  selected  unit  or 
subunit  that  are  in  eacl.  swimming  qualification  category. 
Also,  this  routine  displays  the  NAME,  RANK,  COMPANY  and 
swimmitg  qualification  for  each  member  of  the  unit  or 
subunit . 
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PRESS  'ENTER'  TO  CONTINUE 


Pignre  4.11  svisaing  Qualification  Status  Report 


x.  Help  Routine  (aeip.prg) 

This  routine  provides  a  functional  description 
c£  each  report  listed  in  the  Standard  Report  Selection  Menu. 

6.  ta  inte  par.ee  fried  ule 

a-  Maintain  Control  Routine  (Maintain. pr g) 

The  Maintain  Control  Routine  produces  a  menu. 
Figure  4.12,  that  allows  the  user  to  select  the  desired 
function.  This  module  restricts  access  when  the  function 
has  a  critical  capability.  Only  the  Data  Ease  Administrator 
(EDA)  anc  the  Assistant  DBA  have  access  to  all  functions. 

fc.  View  Control  Routine  (Viewitr . prg) 

This  module  queries  th?  user  for  the  name  cf  the 
individual  whose  training  record  is  tc  be  viewed.  The 


MAINTENANCE  MODULE  MENU 


SELECT  ONE  OF  THE  FOLLOWING  OPTIONS 

V...VIES  INDIVIDUAL  DATA 
C.. . UPD ATE  DATA 
C..  .CRE  ATE  AN  ITR 
E... DELETE  AN  ITR 
£..  .SYSTEM  FUNCTIONS 
H..  -HELP 
*Q..  .QUIT* 

SELECT  OPTION  =  =  => : 


Figure  4.12  Maintenance  Module  Menu 

routine  controls  the  search  and  creation  cf  the  formatted 
screen  that  displays  the  ITE.  The  routine  asks  the  user  a 
series  of  questions  that  can  be  answered  with  yes  or  no. 
This  routine  allows  only  the  data  to  be  displayed  (see 
Figure  4.13). 
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Figure  4.13  ITR  Screen  Foraat 


c 


ITB  Screen  Format  Routine  (Itrscrn.pra) 


This  routine  produces  the  electronic  IT?  or. 
which  an  individual's  data  is  displayed. 

d.  Screen  Data  Betrieval  Routine  (Getdat a.  prg) 

;je  Getdata.prg  communicates  with  the  DEBS  and 
retrieves  the  data  for  a  particular  individual.  It  rhen 
sends  the  data  to  the  appropriate  position  on  the  screen 
that  corresponds  to  the  ITE  format.  The  DBMS  locates  indi¬ 
viduals  ty  their  SSN.  Fcur  data  base  files  are  used  to 
create  an  ITE;  Eers.dbf,  Est.dbf,  Qual.dbf,  and 
Infomisc  .dfc  £. 

e.  Comment  Eetrieval  Routine  (Getcmmnt. prg) 

If  unstructured  comments  exist  for  an  indi¬ 
vidual,  the  routine  will  instruct  tha  DBMS  to  search  for 
them.  The  comment  information  will  then  be  displayed  cn  the 
screen. 

f.  Update  Control  Routine  (Opdtitr . prg) 

The  Update  Control  Routine  questions  the  user 
concerning  which  ITR  is  to  be  updated.  The  routine  deter - 
nines  if  the  individual  is  in  the  data  base  and  controls  the 
update  of  the  ITR.  The  routine  allows  the  user  tc  update  as 
many  HR's  as  desired.  The  data  is  displayed  on  the  screen 
in  the  IIP  format  and  allows  a  modified  form  of  full  screen 
editing . 

g.  Data  Update  Routine  (Updata.prg) 

This  routine  requires  the  user  to  type  in  the 
name  of  the  field  tc  be  updated.  The  routine  then  high¬ 
lights  that  field  and  permits  data  to  be  entered.  When  the 
data  has  been  entered  this  routine  initiates  error  checking 
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and  initiates  calculations.  The  data  is  then  stored  in  the 
data  base. 

h.  ITRM  Creation  Routine  (Creatitr .  prg) 

The  creation  of  a  new  ITR  for  an  individual  is 
controlled  by  this  routine.  It  initiates  the  formatting  of 
the  screen  and  controls  the  routine  which  gathers  the  data 
for  the  individual.  The  routine  allows  multiple  records  to 
be  created. 

i.  ITR  Data  Initialization  Routine  {Indata. prg) 

This  routine  initializes  the  data  base  and 
allows  tte  user  to  enter  data  for  an  individual  by  field. 
Cnee  the  data  has  beer,  entered  the  nodule  initializes  error 
checking  and  calculations  that  may  pertain  to  the  data 
fields.  If  unstructured  comments  are  to  be  entered,  the 
routine  controls  this  process.  The  ITR  Data  Initialization 
Routine  instructs  the  DBMS  to  store  the  data  in  the  appro¬ 
priate  data  base  files. 

j.  Data  Error  Checking  Routine  (Error. prg) 

This  routine  performs  the  error  checking  for  the 
system  during  data  entry.  Since  this  is  a  prototype  system, 
error  checking  is  not  extensive.  Dates,  value  ranges,  and 
acceptable  characters  are  the  limits  of  the  error  checking. 
Dates  are  only  checked  for  limits  in  number  of  months,  days 
in  the  month,  and  acceptable  year  window.  Specific  months 
are  not  matched  to  specific  number  of  days.  The  system  dees 
catch  the  most  common  errors  caused  by  gross  typing  mistakes 
tut  may  not  catch  slight  errors  if  the  values  are  withir. 
specified  limits. 
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k.  Calculation  Routine  (Calculat . prg) 

The  Calculation  Routine  performs  the  calcula¬ 
tions  necessary  to  reproduce  training  tables  concerning 
weight/height  standards,  physical  fitness  standards  by  ace, 
rifle  qualification  levels  ,  and  pistol  qualification 
levels.  When  the  information  that  is  needed  for  these 
calculations  has  been  entered  in  the  data  base  the  system 
recalculates  the  related  fields  and  enters  the  new  qualifi¬ 
cations  in  the  data  tase. 

l.  Comment  Update  Routine  (Wrtcmmnt.  prg) 

This  routine  finds  the  individual's  comment 
record  in  the  data  base  and  updates  the  information  with  new 
data.  It  then  stores  the  data  back  into  the  data  base. 

a.  Comment  Creation  Routine  (Crtcmmnt.prg) 

The  Comment  Creation  Routine  creates  an  unfor¬ 
matted  comment  record  for  an  individual  in  the  data  base. 
The  comment  record  is  filled  with  asterisks  that  will  be 
typed  ever  when  data  is  inserted. 

n.  Delete  I1F  Routine  (Delet itr  . prg) 

This  routine  is  limited  to  the  DBA  and  Assistant 
DBA  only.  The  routine  queries  the  user  for  the  name  of  the 
individual  to  be  deleted.  It  then  finds  the  individuals 
ITR II  information  and  displays  the  data  in  ITR  format.  A 
second  verification,  that  this  individual  is  to  he  deleted, 
is  obtained  at  this  time.  The  module  then  delates  the  indi¬ 
vidual  from  all  the  data  base  files.  This  deletion  is 
permanent  and  there  is  no  recovery  cf  deleted  records. 


-  .? 
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c.  System  Function  Control  Routine  (5yst em. cr g) 

The  control  of  system  functions  is  accompl ished 
by  this  routine.  Like  all  previous  routines,  this  routine 
is  menu  driven  (see  Figure  4.14).  The  user  selects  the  menu 
option  that  performs  the  desired  function,  and  calls  the 
appropriate  routine. 


SYSTEM  FUNCTION  MENU 
SELECT  ONE  CF  THE  FOLLOWING  OPTIONS 

1. .  .INSTALL  SYSTEM 

5.. . 5YSTEM  RESET  (YEARLY) 
A... ACCESS  LIST  MAINTENANCE 
Q...CUIT  TC  MAINTENANCE  MENU 

ENTER  OPTION  ===5: 


Figure  4.14  Systea  Function  Menu 


p.  System  Installation  Routine  (Install. prg) 

Units  in  the  Marine  Corps  often  have  different 
names.  The  system  allows  the  DBA  to  name  his  units  to 
correspond  to  the  actual  names  of  the  battalion's  units. 
The  system  also  initializes  the  current  year.  This  informa¬ 
tion  is  then  stored  cn  a  file  which  is  recalled  whenever  the 
system  is  functioning. 

q.  Systea  Reset  Routine  (Sysraset  .prg) 

Training  in  the  Marine  Corps  is  based  cn  a 
yearly  cycle  and  requires  that  individuals  requalify  in 
certain  nreas  once  cr  mere  a  year.  This  routine  resets 
globally  all  the  fields  in  the  data  base  that  must  be 
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requalified  each  year.  The  routine  allows  the  DBA  to  enter 
the  yearly  range  quotas.  The  DBA  can  use  this  routine  to 
update  those  quotas,  tut  this  is  not  recommended.  The  capa¬ 
bility  also  exists  in  the  Standard  Report  Generators  DSS. 

r.  System  Access  Control  Routine  (Rstaccss. pr gl 

The  DBA  lust  be  able  to  change  the  access  list 
by  deletions  or  additions.  This  routine  displays  a  menu, 
(Figure  h.  15)  that  gives  the  DBA  options  to  choose.  This 
routine  gives  the  DEA  the  ability  to  manage  access  tc  the 
system  and  maintain  a  list  of  users.  It  is  not  recommended 
that  the  DBA  keep  a  printed  copy  of  this  list  unless  it  is 
in  a  secured  environment.  The  system  will  list  each  user, 
user  identification  cede,  user  password,  and  authorization 
level . 


! - 

SECURITY  ACCESS  LIST 
.  CHCOSE  CETION  TO  Ei  EXECUTED 

I.. .LIST  ALL  USERS 
A.. . ADD  TO  ACCESS  LIST 
D... DELETE  FECM  ACCESS  LIST 
Q...Q0IT  TO  SYSTEM  FUNCTION  MENU 

ENTER  OPTION  ====>: 


Pigure  h.15 


Access  Function  Menu 


V.  CCHCIOSIOH 


1.  GISEEAL 

The  thesis  concept  statement  is  written  in  general  terms 
and  therefore,  is  subject  to  qualitative  evaluaticn  only, 
this  approach  is  intended  for  the  following  reason.  During 
the  conception  phase  of  the  project,  we  had  only  a  vague 
intuitive  "feel"  for  such  things  as  reasonable  system  costs, 
acceptable  response  times,  operator  training  requirements, 
and  the  ultimate  "user  friendliness"  that  could  be  achieved. 
Because  functional  requirements  are  not  well  defined  at  this 
point,  an  attempt  to  impose  stringent  quantitative  standards 
is  premature.  Furthermore,  quantitative  goals  shift  the 
emphasis  toward  achieving  system  efficiency  and  away  from 
defining  system  effectiveness.  In  other  words,  the  purpose 
of  this  thesis  is  tc  prove  a  general  concept  through  the 
development  of  a  working  prototype.  The  general  concept 
includes  simplicity  cf  o  .ation  and  maintenance.  System 
efficiency  is  not  a  significant  consideration.  The  reader 
will  notice,  however,  that  system  specifications  are  defined 
using  quantifiable  objectives  where  feasible,  the  distinc¬ 
tion  fceing  that  the  system  requirements  determined  by  the 
user  may  not  be  satisfied  by  the  first  generation  prototype. 
As  the  user  becomes  more  familiar  with  the  capabilities  of 
the  system,  requirements  will  become  more  clearly  defined. 
With  this  approach  the  overall  system  concept  may  be  valid 
while  seme  system  requirements  have  not  yet  been  attained 
(i.e.,  in  the  first  ceneraticn  prototype). 
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E.  SIS11B  SPECIFIC 1110 HS  ( FOICTIOH AL) 


All  system  specifications,  except  those  referred  tc 
telow,  have  been  satisfied  by  the  prototype. 

1 .  Storage  Lia itations 

The  prototype  cannot  adequately  handle  the  specified 
600  records  .  The  limiting  constraint  is  available  storage. 
All  system  software  resides  on  four  double- sided ,  double¬ 
density  5  1/4  inch  floppy  disks  (360k  bytes  each).  The 
first  two  disks  are  program  disks  which  are  stored  directly 
into  BAH  memory.  The  second  two  disks  contain  all  of  the 

data  base  files.  Data  base  files  are  read  into  jerking 
storage  only  when  they  are  being  used  by  the  system.  Each 
Barite  in  the  data  base  requires  approximately  550  bytes  of 
data  (or  4.4k  bits).  Due  to  the  DBMS’s  required  overhead 
the  prototype  can  accommodate  approximately  180  Marines.  In 
order  tc  achieve  the  specification  requirement  of  800 
Harines,  a  storage  device  capacity  of  two  megabytes  cr  mere 
is  reguired  (e.g.,  hard  disk  drive)  . 

2 •  Retrieval  Limitations 

All  standard  reports  can  be  retrieved  by  unit  or 
subunit.  However,  the  standard  report  does  not  include  the 
facility  tc  retrieve  data  by  other  user  defined  attributes 
This  facility  is,  however,  included  in  the  ncr.standard 
report.  The  nonstandard  report  may  include  up  to  three  user 
defined  attributes  and  attribute  descriptions. 

C.  SISTIB  SPECIFIC A I IO IS  ( BOB-FUNCTIONAL) 

1 .  Tra ining 

Most  of  the  nen-f un ctional  specifications  relate  tc 
the  operator  training  effort  required  to  implement  the 


A. 


A 


f. 
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systea.  It  is  our  judgement  that  the  prototype  satisfies 
these  requireaents. 

2.  EjEpcy  Checking 

Operator  input  is  range  checked,  data  type  checked, 
and  checked  for  field  length  (characters  in  excess  of  the 
aaxiaua  field  length  are  truncated)  .  In  a  fully  implemented 
system  error  checking  would  be  expanded  and  diagnostic  error 
xessages  sent  to  the  user. 

3.  Table  Mapping 

Mapping  of  rifle,  pistol  and  PFT  scores  into  quali¬ 
fication  categories  is  invisible  to  the  user.  In  addition, 
a  weight  control  table  is  embedded.  When  an  individual's 
height  and  weigh  are  entered  the  weight  control  table  is 
referenced.  If  his  weight  is  in  excess  of  allowable  stan¬ 
dards  fcr  his  height,  he  is  automatically  assigned  tc  the 
"weight  control  program"  by  assigning  a  boolean  variable  of 
"T"  tc  the  weight  control  field  in  his  training  record. 

0.  SOBSIQOEHT  STSTEB  DEVELGIBEHT 

The  next  step  in  the  development  of  the  system  is  to 
place  the  system  into  the  hands  of  the  user  to  accomplish 
the  fcllcuing  objectives: 

a.  Eefine  user  training  requirements; 

t.  Achieve  user  familiarity; 

c.  Evaluate  and  quantify  existing  functional  require- 

xent  s ; 

d-  Eefine  additional  quantifiaole  functional  require¬ 
aents; 
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e.  Cesign  and  develop  second  generation  prototype  based 
cn  new  set  of  user  defined  functional  requirements. 

Z.  SCBH1FI 

The  objective  of  the  Thesis  was  to  prove  the  feasibility 
of  a  concept.  It  is  reasonable  to  conclude  that  the  concept 
has  been  proven  through  the  design,  th9  implementation,  and 
the  demonstration  of  a  working  prototype. 
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A£IU?DI£  h 

DAI A  ELEHEHT  DICTIONARY 

All  cata  elements  that  exist  in  the  individual  training 
data  aanagesent  system  are  contained  in  one  of  seven  data 
base  files.  The  oily  exception  is  the  data  element  SSN. 
SSN  is  a  key  field  field  and  is  therefore  included  in  nhe 
record  structure  of  multiple  files.  The  following  informa¬ 
tion  is  used  to  describe  each  data  base  file: 

A.  HELD 

Each  data  element  belongs  to  a  specific  field  within  the 
record' structure .  Pields  are  numbered  sequentially.  Tor 
example,  field  03  in  the  data  base  file  called  Pers  is  the 
data  element  named  Rank. 

E.  RAISE 

Eac/  -aha  field  has  a  unique  name  which  always  refers  to 
that  specific  information  that  is  contained  in  the  data 
field  (example;  Pr imeWOS  contains  the  primary  MOS  of  each 

neuter  in  the  data  base) . 

C.  YYPB 

Each  data  field  is  defined  to  be  one  of  three  possible 
data  types: 

1.  Character  (C) 

2.  numeric  (N) 

3.  logical  <L) 
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E.  IIDTB 


This  characteristic  describes  the  maximum  length  cf  the 
data  field.  Information  in  the  data  field  may  net  exceed 
the  number  of  spaces  that  have  been  set  aside  fer  that 
particular  field  (all  characters  and  blanks  are  included 
when  courting  the  number  of  spaces  in  a  field). 


Z.  D1SCBIETI01 

This  cclumn  contains  a  narrative  description  of  the 
field.  in  many  instances,  examples  (Ex.)  are  used  to 
describe  the  structure  of  a  typical  data  element. 


I.  E  *1 A  EASE  PILES 


1 .  fejs  (Personnel) 


Pield  Raae  Type  Width 


Description 


01 

SSN 

C 

09 

02 

Name 

c 

30 

03 

Fank 

c 

02 

04 

Erimemos 

c 

04 

05 

Secrcos 

c 

04 

06 

Company 

c 

06 

07 

Elatoon 

c 

09 

08 

Joitdat  e 

c 

06 

09 

EAS 

c 

06 

10 

Ert  hdat  e 

c 

06 

11 

Comment 

L 

01 

12 

13 

Height 

Wei  ght 

c 

c 

ll 

14 

iitccnt 

L 

01 

Gasmask  C  01 


EX.  240707765 
Last  name  followed  by  a 
comma,  Pirst  name  and  Middle 
Initial.  (Ex.  Smith,  Jack  E.) 
Pay  grade  (Ex.  E2,  01) 

Primary  Military  Occupational 
Specialty  (Ex.  0311) 

Secondary  Mos 
EX.  A  CO,  HHS  CO,  A  ETRY 
Ex.  1ST  FIAT,  GUN  PLAT,  WPSN 
PLAT,  HDQTRS 

The  date  (DDMMYY)  member 
joined  ihe  unit. 

Expiration  cf  Active  Service 
(DDMMYY) 

Date  of  birth  (DDMMYY) 

A  boolean  variable  (F/T)  for 
which  T  indicates  that  a 
comment  record  exists. 
Individual's  height  j.n  inches 
Individual's  weight  ir.  pounds 
A  boolean  variable  (F/T)  for 

V  T1  *  ^ 

individual  is  on  weight 
control. 

Gas  mask  size  (S,  M,  L) 


15 
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•  J ST  (Essential  Subjects  Testing) 


Field 

01 

02 

Nans  Type 

SSN  c 

ccc  c 

Width 

09 

03 

03 

HIS 

C 

03 

04 

COD 

C 

03 

05 

INT 

c 

03 

06 

AID 

C 

11 

07 

INI 

C 

03 

08 

EFT  IRA  W 

N 

03 

09 

EFT1DATE 

C 

06 

10 

EFT'.CLSS 

C 

01 

11 

EFT2RAW 

N 

03 

12 

EFT2DATE 

C 

06 

13 

EP12CLSS 

C 

01 

14 

NBC 

c 

06 

15 

EKS 

C 

06 

16 

7AC 

c 

05 

Description 
EX.  240707765 

Cede  of  Conduct  contains  an 
entry  for  each  training 
element  (A,B.C) . 

History  of  the  Marine  Corps 
contains  an  entry  for  eacn 
training  element  (A,B.C). 
Close  Order  Drill  con  warns  an 
entry  for  each  training 
element  (A,B,C) . 

Interior  Guard  contains  an 
entry  for  each  training 
element  ( A,  B, C) . 

Pirst  Aid  contains  ar.  entry 
for  each  training  element 
(A,p,C,D,E,F,G,H,I,J,K)  . 

Equi pment  S  uniforms  contains 
an  entry  for  each  training 
element  (A. 3 ,C). 

Includes  the  numeric  sccre 
for  the  first  annual  physical 
fitness  test  (BANGE:  00-300)  . 
Date  of  first  ohysical 
fitness  test  (DDHHYY)  . 

Results  of  first  physical 
fitness  test  (1,2,3,U). 
Includes  the  numeric  score 
for  the  second  annual 
physical  fitness  test  (RANGE: 
00^00)  . 

Date  of  the  second  physical 
fitness  test. 

Results  of  second  physical 
fitness  test  (1, 2,3,0). 

NBC  contains  an  entry  fcr 
each^traming  element  (A,B,c, 

Marksmanship  contains  an 
entry  for  each  training 
element  ( A, B ,c  ,D, 2,F)  . 
Individual  Tactical  measures 
contains  an  entry  for  each 
training  element  (A,B,C»L,E). 


3.  £UM  (Qualifications) 


Field 

Name  1 

Typ  e 

Width 

01 

SSN 

C 

09 

02 

SWI  SQUAL 

C 

02 

03 

SWIBDATE 

c 

06 

04 

FFLSC0R2 

c 

03 

05 

FFIQUAL 

c 

02 

06 

BPICATS 

c 

06 

07 

PSTSCORE 

c 

03 

08 

PSTQUAL 

c 

02 

09 

PSTEATS 

c 

06 

Description 
EX.  240707765 

Swimming  Qualification  (NO, 

S  1 ,  S 2  S3)  . 

5NiMq6aL  date  (DDMKYY)  . 
Numeric  rifle  score  (RANGE : 
000-250) . 

Rifle  Qualification  (EX,SS, 
MM  UN)  ♦ 

Date  Of  RFLQUAL  (DDMMYY) . 
Numeric  pistol  sccre  (Range: 
000-300) : 

Pistol  Quaiif icaticn  (EX,SS, 
,  UN)  . 

Date  of  PSTQUAL  (DDMMYY) . 
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INFCWI  SC  (Information  Miscellaneous) 


field  Race  Type  Width 
01  SSN  C  09 

02  E1ECWAR  C  06 


03 

CLCWTHR 

C 

06 

04 

LAWSAR 

c 

06 

05 

eos 

c 

04 

06 

LDRSHP 

c 

06 

07 

DRUG 

c 

06 

08 

ALCOBOL 

c 

06 

09 

H0MREL 

c 

06 

10 

EERSAFFR 

c 

06 

11 

CCBJ 

c 

06 

12 

CHHMORED 

c 

06 

5. 

SECURITY 

(Access  I 

Field 

01 

Na  56 

C  SE  RID 

TyDe 

C 

Width 

05 

02 

CSEEPASS 

c 

08 

03 

AUTELEV 

N 

01 

04 

NAME 

C 

15 

Description 
EX.  240707765 

Electronic  Warfare  contains 
an  entry  for  each  trair.mq 
element  (  A,  B  ,C,  D(  E,  F)  . 

Cold  Weather  Training 
contains  an  entry  for  each 
training  element  (A,B#C#E,E, 
F)  *  , 

Law  of  War  contains  an  entry 
for  each  training  element  (A, 
B.C,D,E,P1. 

MQS  Training  contains  an 
entry  for  each  training 
element  (A,  3,C,  D)  . 

Leadership  Training  contains 
an  entry  ror  each  training 
element  ( A ,  B  ,C  ,Dr  E  » F)  . 

Drug  Abuse  contains  an  entry 
for  each  trainina  element  (A, 
B,C,D,E,F). 

Alcohol  Abuse  contains  an 
entry  for  each  training 
element  ( A ,  B  ,C  ,D,  E ,  F)  . 

Human  Relations  contains  an 
entry  for  each  training 
element  (A,  B#C,D,  E,  F)  . 
Personal  Affairs  contains  an 
entry  fcr  each  training 
element  (A ,  3  ,C  ,D,  E  ,  F)  . 

UCMJ  contains  an  entry  fcr 
each  training  element  (A,B,C, 
D,£,  F)  . 

Cnaracter  and  Moral  Education 
contains  an  entry  for  each 
training  elements (A  ,B ,c,D,E, 
F)  . 


Descr  ipt  ion 

Numeric  code  that  uniquely 
identifies  each  user. 
Alphanumeric  cede  that 
uniquely  identifies  each 
user  . 

Numeric  code  that  defines 
authorization  level  fcr  each 
user . 

Alphanumeric  that  identifies 
the  user. 


6.  COMMENTS  (Non-forma  tied  Information) 


Field 

Nans 

Type 

Widt 

01 

SSN 

c 

09 

02 

I NFCTXT 1 

c 

25 

03 

IN f  CTX  T  2 

c 

25 

04 

I  NFCTXT  3 

c 

25 

05 

3NFCTXT4 

c 

25 

06 

INFCTXT5 

c 

25 

07 

IN  FCTXT6 

c 

25 

Description 
EX.  240^07765 
Unstructured  comments 
Unstructured  ccmmer.  ts 
Unstructured  comments 
Unstructured  comments 
Unstructured  comments 
Unstructured  comments 
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08  INFCTXT7  c  25  Unstructured  comm 

09  3NFOTXT8  C  25  Unstructured  ccmm 

10  I NPCTXT9  C  25  Unstructured  ccmm 

11  2NFCTXT0  C  25  Unstructured  comm 


(u  u)  o>  a 


i£|EJDIX  B 

DECISION  SOEtOBT  SYSTEM  (DSS)  DESCRIPTION 

1.  E 1CKGBOOND 

The  management  of  training  records  includes  many  routine 
tasks  that  are  repetitious  and  highly  structured.  Many  of 
these  tasks  incorporate  low  level,  well-da  fined  cr  semi- 
structured,  independent  decision  making  processes. 
Heretofore,  these  tasks  have  been  manually  implemented  at 
the  cost  cf  many  manhcurs,  and  sometimes  decisions  have  been 
trade  without  making  the  best  use  of  available  information. 
Too  often  the  result  has  been  wasted  effort,  frustration, 
and  incorrect  decisions. 


E.  FCBECSE 

The  purpose  of  this  submodule  is  to  demonstrate  the 
application  of  a  "first  generation"  prototype  DSS  that  will 
achieve  the  following: 

a.  Demonstrate  typical  capabilities  cf  DSS  in  the 
training  management  environment. 

fc.  Demonstrate  the  small  knowledge  base  necessary  to 
iaplement  a  properly  designed  DSS. 

c.  Serve  as  a  "functioning  prototype"  to  gain  early 
user  support  and  experience  in  order  to  further  refine 
system  requirements. 


C.  lONCTIONAL  DESCBIITIOS 

The  CSS  element  cf  the  software  system  product  is  imple¬ 
mented  in  the  "Marksmanship  Status  Beporr"  rcurir.e  which  is 
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When 


called  by  the  "Standard  Report  Generator".  When  the  user 
selects  the  "Marksmanship  Status  Report"  from  the  "Standard 
Report  Menu"  the  DSS  submodule  is  implemented.  The  DSS 
submcdule  performs  the  following  functions  at  the  company 
level : 

a.  Calculates  and  displays  a  current  "Marksmanship 
States  Report"  which  includes: 

(1)  &  summary  of  rifle  and  pistol  current  year 

requali f icaticn  data  (number  of  experts,  sharp¬ 
shooters,  marksmen,  and  unqualified). 


(2)  The  total  number  of  persons  that  have  fired  for 
qualification  during  the  current  year. 


I 

i 


i 


i 


(3)  The  percent  of  experts,  sharpshooters,  marksmen 
and  unqualified  shooters  based  on  the  total  number 
cf  people  that  have  fired  for  qualification  during 
the  current  year. 

t.  A  company  rifle  range  quota  analysis  may  then  be 
performed  at  the  user's  discretion.  This  routine 
includes  the  following  functions: 

(1)  Calculates  and  displays  a  range  quota  analysis. 

(2)  The  following  summary  information  is  displayed: 
<a)  Total  number  of  Marines  fired  for  qualifica¬ 
tion  during  current  year. 


(b) 

Total  numbe 

r  cf 

Marin 

as  f 

ired 

for 

qualifica- 

r* 

tio 

n  during  cur 

rent 

year. 

but 

f  ai 

led 

to  qualify. 

(C) 

Total  numbe 

x  of 

Marin 

as  n 

ct  r 

egu  i 

red  to  fire 

for 

gualificati 

cn  d 
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the 
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year . 

i 

(3) 

Total  r.um 
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of  Mar 
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t  0 

qua 

,lify  before 

I- 

the 

end  cf  the 

current  ye 

ar . 

(3)  A 
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remaini 

ng  in  the  cu 
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9 
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r.um  t 
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quotas  allocated  for  each  north,  and  the  total 
number  of  rifle  range  quotas  that  remain  for  the 
current  year. 

(h)  As  appropriate,  cne  of  the  following  elements  of 
information  is  displayed: 

(a)  Additional  gucta  requirements  for  the  year 

(b)  Excess  quotas  allocated  for  the  year 

(c)  Quota  requirements  (number  of  person  left  to 

qualify)  equal  quota  allocations. 

c.  User's  aay  nanipulate  allocations  on  a  scratch  pad 
to  visualize  different  ccmbiaat ions  ci  monthly  quota 
allocations  cr  to  determine  their  effect  on  end  of  year 
results  (the  objective  is  to  manage  quotas  so  that  quota 
requirements  equal  quotas  allocated)  .  If  desired,  a  set 
of  "scratch  pad"  range  quotas  can  permanently  replace 
the  unit's  range  quota  allocations  for  the  remainder  of 
the  current  year.  If  this  option  is  elected  all  subse¬ 
quent  calculations  will  te  based  on  the  "new  set  of 
range  quota  allocations". 

D.  OSBH'S  BIEW 

1  •  Summary  Information 

Eecisicn  making  is  supported  by  providing  summary 
information  for  the  company.  This  snapshot  of  a  unit's 
current  marksmanship  status  demonstrates  the  degree  of 
success  cf  the  unit's  marksmanship  training  program.  9y 
comparing  this  summary  to  unit  marksmanship  objectives  the 
system  can  te  used  as  a  control  mechanism.  The  following 
types  of  decisions  car  be  supported: 

(1)  Evaluate  marksmanship  training  program  for  weak¬ 
nesses  as  indicated  by  unsatisfactory  qualification 
results  to  date. 


75 


for 


(2)  Evaluate  unit  qualification  objectives 
feasibility . 

2 •  Sue  port  Depth 


Eecision  making  is  supported  at  many  levels  from  the 
platccn  cr  company  training  NCO  to  the  battalion  operations 
officer . 


3 «  Int  erdependence 

Interdependent  (sequential  and  pooled)  decisions  are 
supported.  For  example,  if  one  company  permanently  changes 
rifle  range  quota  allocations  this  decision  is  captured  by 
the  system  and  reflected  in  any  subsequent  analysis 

4 .  Restrictions 

Due  to  the  overriding  system  requirement  for  limited 
user  training  all  processes  are  menu  driven.  This  restricts 
the  degree  of  user- control  and  flexibility.  This  is  a 
significant  compromise  which  reduces  its  effectiveness  as  a 
ESS. 


1.  BOILEEE'S  71 El 

1.  Eia logue 

The  dialogue  subsystem  (implemented  in  dBase  II) 
creates  the  user's  view  as  discussed  above.  It  performs  all 
necessary  data  base  functions,  extracts  and  processes 
summary  information. 

2 .  Modelling 

The  model  base  subsystem  includes  the  mathematical 
and  process  models  necessary  to  use  the  "scratch  pad"  utili¬ 
ties.  for  example,  a  model  file  is  constructed  in  memory 
for  each  unit  which  has  allocated  quotas.  Quotas  car.  be 
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selectively  extracted,  compared,  permanently  changed  ty  the 
user  (provided  the  user  has  the  appropriate  system  access 
authorization)  .  Models  are  not  integrated,  but  each  model 
is  fully  integrated  with  the  DBMS  through  the  query 
language.  Integration  of  models  is  a  desirable  feature 
(e.g.,  battalion  should  have  the  capability  to  total  the 
quotas  of  all  companies  on  a  monthly  basis  or  on  a  remaining 
current  year  basis)  and  could  be  implemented.  This  is  the 
type  of  added  requirement  that  should  be  defined  by  the  user 
during  operation  of  this  "first  generation"  prototype. 

F.  CC STINTS  OP  KNOWLEDGE  BASE 

Data  Base  files  (DBF)  contain  qualification  status  of 
each  member  for  the  current  year  and  members  not  required  to 
fire  for  qualification  during  the  current  year. 

Memory  files  (Mil)  containing  rifle  range  quotas  for 
each  company  are  stored  in  separate  memory  files  (see  Figure 
B.1  for  example)  . 


CORSGQTA.MEM 

VARIABLE  NAME  VALUE 


OJAS 

25 

QFSE 

25 

QM  AR 

25 

QAPB 

25 

QM  A I 

50 

QJU  t 

50 

OJUL 

50 

QAOG 

50 

QSEF 

00 

QOCT 

00 

QNO  V 

00 

QDEC 

00 

Pigure  B. 1  Hemory  Pile 
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ITBS  HASTES  CONTBCL  MODULE  LISTING 


«.  H1ST1B  BOOTHS 


*  Routine  Name:  Master. prg 

*  Module  Naae:  ITHS  Caster  Control  Module 

*  Version:  1.0 

*  Author:  D.P.  Haeusler 

*  Dat<j:  28  Oct  83 

*  Variables  Osed :  Thru,  Valpass 

*  Variables  Modified:  None 

*  Variables  Created:  Bone 

*  variables  Released:  None 

*  Files  {cpened/closed)  :  None 

*  Teipp  Files  Created:  None 

*  Using  Subroutines:  Bone 

*  Description:  This  is  the  routine  that  controls  the  flew 

*  of  the  program.  This  routine  is  an  endless  loop  which 

*  requires  the  user  tc  turn  the  computer  off  in  order  tc 

*  enter  another  system.  This  routine  does  not  allow  the 

*  users  to  directly  enter  the  DBMS,  the  general  intent  is 

*  to  aake  the  DBMS  completely  transparent  to  users.  Some 

*  house  keeping  is  dene  to  insure  that  the  proper  disks 

*  are  in  place.  This  occurs  by  reading  stored  files  or. 

*  the  disks  and  then  checking  the  values.  The  system  will 

*  net  continue  untill  the  disks  are  in  the  proper  drive. 

SET  CCNSCLE  ON 
SET  TALK  OFF 
SET  E  SC  A  EE  CFP 

STORE  T  10  AAENDLES 
STORE  F  TO  SWITCH 


DO  WBILE  .  NCT. 

SWITCH 

ERASE 

3  9.25  SAY  " 
5)  10,25  SAY 

REMOVE 

DISK  ET1ES 

FROM 

TH 

S  DRIVES" 

"  PLACE 

•A* 

DATA 

DISK 

IN 

DRIVE  •  A*  " 

a  11,25  SAY 

"  PLACE 

•  B* 

DATA 

DISK 

IN 

DRIVE  «B’" 

a  23,25  SAY  «****♦  PRESS  ARY  KEY  TO  CONTINUE  ***•*♦" 

SET  CCNSCLE  OFF 

WAIT 

S FT  CCNSCLE  ON 

RESTCFE  FROM  A:  H  E  ECIS  K  ADDITIVE 
INDCO 

DO  WHILE  AAENDLES 
ERASE 

a  Hi, 27  SAY  "  UNITED  STATES  MARINE  CORPS" 

1  11,23  SAY  "  INDIVIDUAL  TRAINING  RECORD  SYSTEM" 

3  12, 3U  SAY  "  (PROTOTYPE)  " 

DO  PAUSE 

a)  23,23  SAY  "♦♦***  PRESS  ANY  KEY  TO  CONTINUE  ****♦" 
SET  CCNSCLE  OFF 
WAIT 

SET  CCNSCLF  ON 
DO  Access 

RESTCFE  ERCK  A  :  M  FM  DISK  ADDITIVE 
STORE  F  TO  SYS  DATE 

DO  WHILE  .NOT.  SYSDATF  .AND.  AAVALPAS 
ERASE 
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"ENTEF  TODAY'S  DATE" 


(DD  HNYY 
<  32 


ND.  > 


DATE 

...1,2)  l 

•  AND  .  VAL($(5YSDAY,5,2))  = 
SYSDAY  TO  AADATE 
T  TO  SYSEATE 


"  TO  SYSDAY 


VAL  (V  (5 YSCAY  ,3,2)) 

—  c  R  n  x  y  r. 


a  11,24  SAY 

ACCEIT  " 

IF  V  AL  ($  (SYSDAY 

<  13  *---  “ 

STORE 
STORE 
ELSE 

XBASE 

a  8,24  SAY  "IMEBOFER  EATE--REENTER" 
a  5,24  SAY  »**PRESS  ANY  KEY  TO  CONTINUE**" 
SET  CONSOLE  OPE 
WAIT 

SET  CONSOLE  ON 
F.NEIF 
ENDDO 

RELEASE  ALL  EXCEPT  AA?????? 

IP  AAvaltas 
DO  Cmadet 
ENDIF 

STORE  T  10  AAENDLESS 
ENDDC 


» 


» 


t 


I 


» 


I 


» 
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PAUSE  BOOTIHE 


*  Routine  Name:  Pause. prg 

*  Module  Rase:  ITES  Easter  Control  Module 

*  Version:  1.0.0.0.1.C 

*  Authcr:D.E.  Haeusler 

*  Date:  30  Bov  83 

*  Variables  ose?l:  pause 

*  Variables  Modified:  pause 

*  Variables  Created:  cause 

*  Variables  Released:  pause 

*  Piles  (opened/ closed)  :  none 

*  Teapcrary  Files  Created:  none 

*  Using  Subroutines:  Access. pro.  Maintain. prg,  Master.  Frg 

+  pescripticn:  This  routine  creates  a  delay  while  a  message 

*  is  being  displayed. 

STORE  )  TO  pause 
DO  WHILE  pause  <  75 

STCRE  pause  ♦  1  TC  pause 
ENDDC 

RELEASE  , nuse 
RETURN 


^L 
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APPENDIX  D 

ACCESS  NODDLE  LISTING 


1.  ACCESS  BOOTHE 


Routine  Name:  Access.Drg 
Nodule  Name:  Access  Nodule 
version:  2.0 
Author:  E.P.  Haeusler 
Date:  28  Cct  8  3 

Variables  Osed:  aavalpass.  password,  idnum,  validid, 

counter,  thru,  pause,  Dassrec,  aalevel 
Variables  Modified:  thru,  aavalpass,  validid,  idnum, 

password,  counter,  pause,  passrec, 
aalevel 

Variables  Created:  aavalpass,  password,  idnum,  validid, 

counter,  pause,  thru,  passrec, 
aaleve  1 

Variables  Released:  counter,  pause,  passrec,  validid, 

thru 

Files  (opened/ closed)  :  a:  security  (opened/closed) 
Temporary  Files  created:  none 
Using  Subroutines:  caster 

Description:  This  routine  conducts  the  logon  procedures 
to  gain  access  into  the  system.  The  routine  will  query 
the  user  for  a  user  ID  and  a  Password,  after  three 
inccrrect  responses  the  session  will  be  terminated. 

*  BEGIN  Access 

STORE  f  TO  thru 

STORE  f  10  AAva  1  pa s 

store  "  "  to  password 

STORE  "  '•  TO  idnum 

STORE  f  TO  validid 

STORE  0  TO  counter 

EO  WHILE  .NOT.  validid  .AND.  .NOT.  thru 
E  R  A  ^  E 

a  l2, 25  SAY  "  ENTIF  ITRS  DSER  NUHBF.3  OS  " 

2)  13,25  SAY  "  •  QUIT  *  TO  TERMINATE  SESSION  " 


ACCEPT  "  ENTER  USER  NUMBER  =  =  =  =  >  '•  TO  idnum 

SICRE  !  (idnum)  TO  idnum 

IF  idnum  =  'QUIT* 

STORE  t  TO  thru 
ELSE 

ERASE 

USI  a:secobity  INDEX  AiSECINDX 
FINE  £  ID  NON 
IF  #  =  0 
US  E 
ELSE 

" S T 0 P E  TRIM  (USZSPASS)  TO  PASS3EC 
STORE  AOTHLEV  TO  AALEVEL 
STORE  T  TO  VALIDID 
ENCIF 
ENEIF 
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IF  .NCI.  validid  .AND.  .NCT.  thru  .AND.  COUNTER  <>  2 
STORE  counter+1  TO  counter 
ERASE 

a  15,25  SAY  "INVALID  USER  NUMBER" 

3  17,25  SAY  "  C RECK  YOUR  NUMBER  " 

DC  pa  usd 
ELSE 

IF  .NCT.  V ALI DID  .AND.  .NCT.  THRU  .AND.  COUNTER  =  2 
STORE  CCUNTEF+1  TO  COUNTER 
ENDIF 
ENEIF 

IF  counter  *  3 

STCFE  t  TO  thru 
ERASE 

3  12,20  SAY  ********************  ***********  *  *****  **  n 
a  13,20  SAY  «***♦♦***♦  TERMINATE  ACCESS  ************ 
a  14,  20  SAY  »  **^^^***  ************************  ******** 
ENDIF 

ENDDO 


STORE  0  TO  counter 

DO  WHILE  .NOT.  AAvalfas  .AND.  .NOT.  thru 
ERASE 

a  7,25  SAY  "  ENTER  YOUR  PASSWORD  OR  " 
a  8,25  SAY  "  ’QUIT'  TO  TERMINATE  THE  SESSION" 

3  11,18  SAY  "  THE  PASSWORD  WILL  NOT  BE  DISPLAYED  " 
3  14,25  SAY  "  ENTER  PASSWORD  ====>  " 

SET  CCNSCLE  OEP 

ACCEPT  "  ENTER  PASSWORD  ==>  "  TO  password 

SET  CCNSCLE  ON 

I?  !  (password )  =  'COIT' 

STORE  t  TO  thru 
ELSE 

”lP  !  (password)  *  passrec 
STCRE  t  TO  A  Avalpa  s 
ELSE 

IF  COUNTER  O  2 

STORE  counter+1  TO  counter 
ERASE 

a  12,25  SAY  "  INVALID  PASSWORD  " 

3  14,25  SAY  "  CHECK  YCUR  PASSWORD" 

DO  pause 
ELSE 

“STORE  COUNTER*  1  TC  COUNTER 
ENCIP  3 
ENDIF  2 
ENDIF  1 


1  T-  counter 
STCRE  t 
ERASE 

a  12,20 
a  13,20 

a  14,20 

ENLIF 
E  N  D  D  C 

RELEASE  counter,  pause,  passrec,  validii,  THRU 
RETURN 


TO  thru 

SAY  "***♦***♦ 

SAY  *************  TERMINATE  ACCESS  *******■**" 
SAY  *•  ********************************  t  *****  <• 


.# 


J» 


t 
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APf EN2IX  E 

COW  HAND  EETEEB IUEB  HODOLE  LISTING 


1.  COMMAND  DETEBBIBEE  BOOT  INE 


*  Routine  Name:  Caddet.prg 

*  Module  Naas:  Command  Determiner  Module 

*  Version:  3.0 

*  Author:  D.P.  Haeusler 

*  Date:  30  Oct  83 

*  Variables  Osed:  aafinish,  ctudopt,  helpopt 

*  Variables  Modified:  aafinish,  cmaop-t, “  helpopt 

*  Variables  created:  aaiinish,  cmdopt,  helpopt 

*  Variables  Released:  cmdopt,  aafimsn,  helpopt 

*  Files  (cpered/close  d)  :  rone 

*  Temporary  Fil^s  Created:  none 

*  Using  Subroutines:  Easter 

*  Description:  This  routine  creates  a  menu  which  is  used 

*  to  determine  which  options  of  the  program  will  be 

*  executed  by  the  user.  These  options  allow  the  user  to 

*  control  the  use  of  the  DBMS  by  the  program. 

STORE  i  TO  AAfinish 


0  WHILE 
ERASE 

a 

a  3,17 
a  5, 17 
a  7^17 
a  e,i7 
a  io,i7 
-  11,17 

12,17 
13,  17 
1U  ,  17 


a 

a 


at 

a 


NOT. 

SAY  " 
SAY  •• 
SAY  " 
SAY  " 
SAY  *• 
SAY 
SAY 
SAY 
SAY 
SAY 


A  Af in ish 


0  SMC  INDIVIDUAL  TRAINING 
RECORD  SYSTEM 
MAIN  MENU 

SELECT  ONE  CF  THE  FOLLOWING  OPTIONS  EY 
ENTERING  THE  APPROPRIATE  LETTER 
D...DATA  ENTRY  AND  SYSTEM  FUNCTIONS 
'...STANDARD  REPORTS 
N.  ..  NONSTANDARD  REPORTS 
H.  . .  HELP 
C.  .  .QUIT 


ACCEPT  "  SELECT  OPTION  =  =  =  =>"  TO  cmdopt 


DC  C  A  CE 

CASE  !  (cmdopt)  =  'D' 

DO  maintain 
STORE  f  TO  A Af inis  h 
CASE  !  (cmdopt)  =  •  S* 

DO  STDRpf 

STORE  f  TO  A Afinish 
CASE  !  (cmdopt)  *  '  N* 

DC  nstddet 
STORE  f  TO  A Af in.  *  1 
CASE  !  •>  .indopt)  =  '  H  ' 

STORE  1  TO  HELPOPT 
DO  8:  H  E  IP2 
STORE  f  TO  A Af inis  h 
CASE  1  (cad  opt)  =  'Q‘ 

STORE  t  TO  A  Af inis  b 
ENECASE 
INDDC 

FELEASE  cmdopt,  HELPOPT,  aafir.ish 
FETU  FN 


* 
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E.  8ELP2  BOOTHE 


*  Routine  Name:  Helpl.prg 

*  Hodule  Name:  Maintenance  Module 

*  Version:  3.0.  1 

*  Author:  D.P.  Haeusler 

*  Dat  f  :  € .  0 . 1.0 

*  Variables  Used:  helpopt 

*  Variables  Modified:  none 

*  Variables  Created:  none 

*  Variables  Released:  none 

*  Piles  (cpened/close d)  :  none 

*  Temporary  Files  Created:  pene 

*  Using  Subroutines:;  Mainta m.  pr g,  Caddei.prg 

*  Description:  This  routine  gives  a  brief  description  cf 

*  the  commands  that  can  be  invoked  by  the  user. 


ERASE 
ZO  CASE 

CASE  HZLEOPT 
TEXT 


1 


D  ...  CAT  A  ENTRY  ARC  SYSTEM  FUNCTIONS:  This  module 
allows  the  user  to  enter  data  cn  individual  Marines  into 
the  data  base  and  to  modify  data  for  system  functions. 
Installation  occurs  in  this  module  and  any  manipulation  of 
the  data  such  as  corrections  and  updatas  of  of  the 
information. 


S... STANDARD  REPCETS:  This  module  produces  reports 
that  are  used  on  a  day  in  and  day  out  basis.  The  reports 
are  displayed  on  the  screen  and  if  a  paper  cony  is  required 
while  the  data  is  still  cn  the.  press  the  shift  key  and  the 
prtsc  key  at  the  same  time,  this  will  print  everything  cn 
the  screen. 


N  ..  .NONSTANDARD  EEPORTS  :  This  module  allows  the  users 
to  construct  th.ier  cvr  queries  cf  the  data  base.  It 
prompts  you  for  the  infer-  nation  to  make  a  query.  Paper 
copies  or  the  reports  can  obtained  by  the  same  method  as  in 
Standard  Reports. 

ENDTEXT 

2  23,15  SAY  •»  *•**  PRESS  ANT  KEY  TO  CONTINUE  *♦**" 
SET  CONSOLE  OFE 
R  AIT 

SF.T  CONSOLE  ON 
CASE  HEIPOPT  =  2 
TEXT 


V...VIER  INDIVIDUAL  DATA:  This  module  prompts  ycu  for 
the  name  of  an  individual  whose  ITR  vou  wish  to  see.  This 
nodule  dees  not  allow  you  to  change  any  fields  all  ycu  can 
do  is  scan  the  data. 

C...CFDATS  DATA;  ^his  module  allows  vou  to  chanae  or 
enter  data  in  any  field  of  any  ITR.  The  ITR  mast  alrcadv 
exist  and  is  identified  by  the  individuals  name.  Ycu  cr.iy 
need  to  enter  enough  cf  tne  name  to  be  able  tc  distinguish 
it  from  another  Marines  name. 


C... CREATE  AN  ITB:  This  module  allcs  the  creation  -f 
new  I TR  *  4 .  It  will  prompt  ycu  to  enter  ail  the  appropriate 
data.  Enter  t}ie  data  in  one  field  at  a  time.  If  nc  data 
is  tc  entered  m  that  field,  strike  the  enter  koy  leaving 
the  fit  Id  empty. 

,  L... DELETE  AN  ITE:  This  module  allows  the  Data  Ease 
Administrator  to  delete  records  n  tne  data  base.  Once  a 
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record  has  teen  deleted  it  is  gene  forever  and  can  net  he 
recovered.  Access  tc  this  aodule  is  restricted. 

S... SYSTEM  FUNCTICNS :  This  module  allows  the 
housekeeping  of  the  system  to  te  accomplished  by  the 
Ease  Administrator.  Access  to  this  module  is  reatric 
1 NET  EXT 

3  23.15  SAY  "  ****  P  SS  ANY  K2Y  TO  CONTINUE  ♦***" 

SET  CONSOLE  OEF 

BAIT 

SIT  CONSOLE  ON 

ENDCASE 
BET U EH 
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APPENDIX  ? 

DCS  STANDARD  COMMAND  GENERATOR  MOODLE  LISTING 

1.  NC  IS1AN CARD  EEPOBT  BOOT IHE 


ROUTINE  N  SHE :  NQSTEFPT. PRG 

MODULE  NAME:  NONSTANDARD  COMMAND  GENERATOR 

VERSION:  H.O 

AUTEOR:  R.E.  PROIETT 

DATE:  04F  EE84 

VAEIAELES  USED:  MATRI1,  DESC1,  MATRI2,  DESC2,  MATRI3 , 
DESC3,  5ICT1,  SLCT2 ,  SLCT3 

VARIABLES  MODIFIED:  MREPEAT,  COUNT,  PROCEED 
VARTAELES  CREATED:  MREPEAT,  COUNT,  PROCEED 
VARIABLES  RELEASED:  H??????.  REPEAT,  COUNT, 

AT  B I???? ,  SLCT????,  DESC?  ??? 

FILES  CPE  NED /C  LOS  E  L  :  A:?EFS,  E  :  ES  T,  BlQUAL 

TEMP  FILES  CREATED:  TEMP,  SLCTDATA,  TEMP2,  TEMP 3 

USING  SUBROUTINES:  COMMAND  DETERMINER  MODULE 

DESCRILTICN:  THIS  MODULE  SEARCHES  THE  APPROPRIATE 

DATAEASE  FILES  IN  CEDER  TC  LOCATE  AND  DISPLAY  ALL  RECORDS 

THAT  SATISFY  A  SET  CF  FROM  ONE  TO  THREE  USER  SPECIFIED 

AHEIEtlES. 


STORE  F 
ERASE 
3  10,25 

a  20,0 
a  21 ,0 


"NONSTANDARD  COMMAND  GENERATOR" 
"PRESS  '  K '  FOR  HUP" 

"  OR  " 


SAY 
SAY 

W  4*  I  »  \J  SAY 
ACCEET  "PRESS  •  ENTEF' 

IF  !  (EPCCE  ED)  =  "H" 

DO  A :  NCS 1DH  LP 
STORE  T  TO  MREPEAT 
END  IF 
END  DC 
ERASE 

2  1,25  SAY  "NONSTANDARD  COMMAND 
a  3,5  SAY  "WHEN  PROMETED  EITEF 
"DESCRIPTOR  FOR  EACH" 

2  4,5  SAY  "CONDITION  STATEMENT 
S  6. 1C  SAY  "LOCATE  AIL  MARINES 
CONDITIONS : " 
a  8, 1C  SAY  "  <ATT  FIE0TE> 

2  9.10  SAY  "  _ 

2  20,0  - 

ACCEET  "ERESS  ‘ENTER’  TO  CONTINUE' 


TO  CONTINUE"  TO  PROCEED 


GENERATOR" 

AN  ATTRIBUTE  AND  A‘ 

DESIRED.  1 

THAT  SATISFY  THESE; 


IS 

TO  proc: 


<DESCRIPTOR>'' 


ED 


STORE  T  TC  MREPEAT 
STORE  0  TC  CCU NT 
DO  WHILE  MREPEAT  =  T  .AND. 
STCFE  COUNT  «  1  TC  COUNT 

STCFE  F  TC  MREPEAT 
DO  SLCTATRI 
ERASE 
DO  CASE 

CASE  COUNT  =  1 

2  1,0  SAY  " <ATT  FI BUTE> 
a  2,0  SAY  » 

2  4  6  SAY  MXT'HT'l - 


COUNT  <=  3 


<DES  CF.IPTICN  >" 

ii 
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a  4,30  SiY  "IS" 

3  4-48  SAY  DESC1 
CASE  CCCST  =  2 

3  1,0  Ski  "<ATTFIBUTE> 

2,0  SAY  " 

4,6  SAY  BATWV3”Tr;3TJ  SAY  "IS" 


3 

3 

3 

3 

a 

3 

3 

a 

a 

a 

3 

a 

a 

a 

3 

a 

a 

a 

a 


<DESCRIPTION>  " 


SAY 


4,48  SAY  DESC1 

6.30  SAY  "AND"  ■ 

8.6  SAY  MATRI2 

8.30  SAY  "IS"  3  8,48 
1,0  SAY  " <ATTFIB0TE> 

2,0  SAY  "  _ 

4.6  say  urn* n 

4.30  SAY  "IS" 

4.48  SAY  DESC1 

6.30  SAY  "AND" 

8.6  SAY  HATBI2 
e,30  SAY  "IS" 

8.48  SAY  DESC2 

10.30  SAY  "AN!" 

12.6  SAY  MATR13 

12.30  SAY  "IS" 

12.48  SAY  DESC3 
EN  LCASE 
IF  COUNT  <  3 

3  2C.0  SAY  "DO 
"STATEBENT?" 

ACCEPT  "(Y/N)  *=»*>"  TO  PROCEED 

IP  ERCCEED  =  "Y" 

STCRE  T  TO  BFEPEAT 
END  If 
ENCIF 

IF  ERCCEED  »  "  N" 

3  22.0 

ACCEPT  "PRESS 
ENCIF 
ENDDC 


DESC2  CASE  COUNT  = 
<  DESCRIPT  ION > 


YOU  WANT  TO  INCLUDE  ANOTHER  CONDITION"; 


.CR.  COUNT  >=  3 

1  ENTER*  TO  CONTINUE"  TO  PROCEED 


ERAS  E 

IF  C  C  CM  =  1 
DO  CASE 

CASE  (SLCT1  >=  "A"  -AND.  SLCT1  <=  "I") 

USE  A:PERS 

DISPLAY  AIL  FCE  SATRI1  =  "6DESC1"  OFF  FIELDS; 
NAME,SSN, &ATRI1 
IF  ECF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCT1  *  "J"  -OR.  SLCTl  =  "K") 

OSE  E: EST 

CCEY  TO  A  :T EM E  FIELD  SSN,SATRI1  FOR  &ATRI1  =  ; 
"F.CESC1" 

SELECT  PRIMARY 
USE  A :T EM P 
SELECT  SECONDARY 
U^E  A • P  rR  S 

JCIN  TO^SLCTDA'TA  FOR  F.SSN=S.35N  FIELDS; 

NAME ,SSN , SATR 1 1 
USE  SLCTD  AT  A 
DISPLAY  ALL 
IF  ECF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCTl  >=  "L"  .AND.  SLCTl  <=  "N") 

GSE  E :QU  A  L 

CCEY  TO  A-.TEME  FIELD  SSN,&ATRI1  FOR  &ATRI1  =; 
"EDESC1" 

SELECT  PRIMARY 
USE  A  :T  EM P 
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P.SSN=S.SSN  FIELDS; 


CH  COMPLETE'* 


CONTINUE'*  TO  PROCEED 


C.  SLCT1  <=  "I")  .  AND.  ; 

E.  SLCT2  <=  "I") 

ELD  NAME,SSN,SATRI1,SATRI2  FCR 


2="€DESC2"  OFF  FIELDS; 

ATBI2 

ARCH  COMPLETE" 

.  SLC T 1  <=  "I")  .AND. ; 

SICT2  =  **K") 

ID  SS  N  ,  &  AT  RI2  FOR  CATRI2  =; 


CR  F.SSN=S.SSN  FIELDS; 

Til  2 

=  "&DESC1"  OFF  FIELDS; 
NAME.SSN.EATRII  .&ATRI2 
IF  EOF 

3  23.50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCT1  >=  **  A "  .AND.  SLCT 1  <=  "I")  .AND.; 

J  SLCT  2  >=  "X"  -AND.  SICT2  <=  "N") 

USE  BlQUAL 

COPY  TO  A :  T  EBP  FIELD  SSN.SATRI2  FOR  SATRI2  =; 

*'S  EES  C  2  " 

SELECT  FRIHAFY 
USE  A  :  T  EMP 
SELECT  SECONEARY 
USE  A  ;  P  ERS 

JCIN  TO  SLCTEATA  FCR  F.SSN=S.SSN  FIELDS; 
NAME.SSN,  &ATEI1.&ATRI2 
USE  SLCTDATA 

DISPLAY  FOR  C ATP.1 1  =  "&DE5C1"  OFF  FIELDS; 

N ABE.  SSN,&  ATRI  1.6ATRI2 
IF  EOF 

3  23,50  SAY  "SEARCH  COMPLETE" 

INDIP 

CASE  (SLCT  1  =  "J"  .OR.  SLCT  1  =  "K’M  .AND.; 

JSLCT2  >=  "i"  .AND.  SLCT 2  <=  'I") 

USE  A  ;  P  ERS 

COPY  TO  A  :  T  E  BF  FIELD  N  AME,  3S  N,  &  AT  RI2  FOR  &ATRI2 
"SCESC2" 

SELECT  FBIMAFY 
USE  AtTEMP 
SELECT  SECONEARY 
USE  B  ;  EST 


SELECT  SECONDARY 

ncp  i-PER  S 

JCIN  TO  SLCTDATA  FOR 
NAME.SSN,  &ATRI1 
CSE  SLCTDATA 
DISPLAY  ALL 
IF  ECF 

5!  23,50  SAY  "SEAR 
ENDIF 
EN  ECASF 

ACCEPT  "PRESS  'ENTER*  TO 
INDIF 


IF  CCCNI  *  2 
DO  CASE 
CASE 


(SLC 

(SLC 

USE 


SLCT1  >=  "A"  .AN 
LCT 2  >=  "A"  .AN 
A • PERS 
COPY  TO  A:  TEMP  FI 
6 ATRI 1 ="6DESC1 " 
USE  A  :  TEMP 
DISPLAY  FOP  S ATRI 
NAME  ,SSN,SATRI1  ,& 
IF  EOF 

3  23,50  SAY  "SE 
ENDIF 

CASE  (SLCT  1  >=  "A"  .AND 
JSICT2  =  "J"  .OR. 
USE  B:  EST 

C-OPY  TO  A ;  TEBP  FIE 
"&EESC2" 

SELECT  FRI  M  A  BY 
USE  A;  TEMP 
SELECT  SECONDARY 
USE  A  ;  P  ERS 
JCIN  TO  SLCTDATA  P 
NAME,  SSN,&A1EI1,&A 
USE  SLCTDATA 
DISPLAY  FOR  S ATR1 1 
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JOIN  TO  SLCTEATA  FOR  P.SSN=S.SSN  FIELDS; 

NAME.SSN, 6A1FI1 ,  &  A  T  RI 2 
USE  SLCTD  AT  £ 

DISPLAY  FOR  SATRI1  =  "&EESC1"  OFF  FIELDS; 
NAME,SSN,&A1EI1 ,SATBI2 
IF  EOF 

2  23 , 50  SAY  "SEARCH  COMPLETE" 

ENCIF 

CASE  (SLOT  1  *  "J"  .OR.  SLCT1  =  "K")  .AND.; 

(SLCT2  =  "J"  .OR.  SLCT2  =  "K" 

OSE  B:  EST 

COPY  TO  AlTEF.F  FIELD  SS  N  ,  &  AT  R1 1  ,  &  ATRI2  FOR  &ATRI2; 
=  "&DESC2"  .AND.  SATRI1  =  "&DESC1" 

SELECT  FRIMAFY 
OSE  A:TEHP 
SEIECT  SECONDARY 
OSE  A  ;  P  ERS 

JCIN  TO  SLCTD AT A  FOR  E.SSN=S.SSN  FIELDS; 

NAME,SSN.&ATRI1»&AIRI2 

OSE  SLCTD AT  A 

DISPLAY  ALL 

IF  EOF 

3  23,50  SAY  "SEARCH  COMPLETE" 

FNDIF 

CASE  (SLCT1  *  "J"  .OR.  SICT1  =  "K")  .AND.; 

(SLCT2  >=  "1"  .AND.  S1CT2  <=  "N") 

OSE  B:  QUAL 

COPY  TO  A : TEMP  FIELD  SSN,&ATRI2  FOR  SATRI2  =; 
"SCESC2" 

OSE  B  ;  E ST 

COPY  TO  A : T  EBF2  FIELD  SSN,&ATRI1  FOR  &ATRI1  =; 
"DFSC 1 " 

SELECT  ERIMAFY 
OSE  A  :  T  EM  P 
SELECT  SECONDARY 
OSE  A  :  T  EM  P  2 

JCIN  TO  A:TEEP3  FOF  E.SSN=S.SSN  FIELDS; 

SSN.G ATRI1 .EATRI2 
SEIECT  FRIMAFY 
OSE  A  :  T  EMP  3 
SELECT  SECONDARY 
OSE  A  :  P  ER S 

JCIN  TO  SLCTD/TA  FCR  E.SSN=S.SSN  FIEIDS; 

NAME,SSN,CA1FI1,SATRI2 

OSE  SLCTD AT  A 

DISPLAY  ALL 

IF  EOF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENDIP 

CASE  (SLCT1  >=  "L"  .AND.  SLCT1  <=  "N")  .AND.; 

(SLCT2  >=  "A"  .AND.  SLCT2  <=  "I" 

OSE  A:  P  ERS 

COPY  TO  A : TEMP  FIELD  N  AM  E,  SS  N ,  &  AT  RI2  FOR  &ATRI2  = 
"SDESC2" 

SELECT  ERIMAEY 
OSE  A  :  T  EM  P 
SELECT  SECONDARY 
OSE  £ : Q 0 A L 

JCIN  TO  SLC1DATA  FCR  F.S3N=S.SSN  FIELDS; 
NAME,SSN,SA'r.  RI1,&ATPI2 
OSE  S  LC ID  AT  A 

DISPLAY  FOR  6ATRI1  =  "SDESCl"  OFF  FIELDS; 

NAME, SSN, &ATFI1 ,£ATRI2 
IF  EOF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENEIF 

CASE  (SLCT1  >=  "I"  .AND.  SLCT1  <=  "N")  .AMD.; 

( S  LCT  2  =  "J"  .C?.  SIC  1 2  =  "K") 

OSE  B  :  E  ST 


COPY  TO  A : TEMP  FIELD  SSN,6ATRI2  FOP  SATRI2  =; 
"5CESC2  " 

GSE  BiQUAL 

COFY  TO  A : T  E  KF2  FIELD  SSN,GATRI1  FOR  SATRI1  =; 

M  £  £5C  1  •* 

SELECT  PRIMARY 
OSE  A  :  T  EMP 
SEIECT  SECONDARY 
USE  A  :  T  EMP  2 

JOIN  TO  A  :  T  E  MP3  FOB  F.SSN=S.SSN  FIELDS; 

SSN.G  ATRI1. 6ATRI2 
SEIECT  ESI  n  A  BY 
USE  At  TEMPS 
SEIECT  SECONDARY 
USE  A  :  P  ERS 

JOIN  TO  SLC1 CAT A  FOR  F.SSN=S.SSN  FIELDS; 

NAME,  SSN.&ATflI1,GATRl2 
CSE  SLCTDATA 
DISPLAY  ALL 
IF  EOF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENCIF 

CASE  (SLCT1  >=  "I"  .AND.  SICT1  <=  "N")  .AND.  ; 

ISLCT  2  >=  "L"  .AND.  SLCT2  <=  "N") 

CSE  B :  QDAL 

COPY  TO  A :  T  EMP  FIELD  S  SN  ,  S  ATRH  ,  &  ATRI2  FOR  SAT  FI  1 ; 
=  "GDESC1 "  .AND.  &ATEI2  =  "&  DES  C2 " 

SELECT  EEIMAFY 
CSE  AtTEMP 
SEIECT  SECONDARY 
OSE  A ; PERS 

JOIN  TO  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 

NAME, SSN, GAT  Ell, &ATPI2 
CSE  SLCTDATA 
DISPLAY  ALL 
IF  EOF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENCIF 

EN  DCAS  E 

ACCEFT  "PRESS  'ENTEF'  TO  CONTINUE"  TO  PROCEED 
INDIF 

IF  CCCNT  =  3 
DO  CASE 

CASE  (SLCT1  >=  "A"  .AND.  SLCT1  <=  "I") 

DC  CASE 

CASE  (SLCT2  >=  "A"  .AND.  3LCT2  <=  "I") 

co  Case 

CASE  (SLCT3  >*  "A"  .AND.  SLCT3  <=  "I") 

DS  E  8 ; PE  RS 

COPY  TO  A ; T  E  MP  FIELD  NAME,  SSN.  S ATR1 1 , ; 
GATRI2,  SATBI3  FOR  &ATRI  1  =  "GDESC  1  " 

USE  A  ;tEMP 

COPY  TO  A:  T  F.MP  2  FIELD  NAME,  SSN,  &  ATB1 1  , ; 
GATRI2,  SATBI3  FOR  &AIRI2= "G  DESC2" 

USE  A:TEMP2 

DISPLAY  FOR  v  A IR 1 3  =  "& DS  SC  3  "  OF?  FIELDS; 
NAME.  SSN,  G  AT  BI1  ,  GATRI2,  GATRI3 
IF  EOF 

d  23,50  SAY  "SEARCH  COMPLETE" 

ENDI  F 

CASE  (SLCT3  =  "J"  .OR.  SLCT3  =  "K") 

USE  E  :  EST 

COPY  10  A :  T  EM  P  FIELD  SSN,GATRI3  FOR  EATRI3; 
=  "SCESC3" 

SELECT  PRIMARY 
USE  A  :TEMP 
SELECT  SECONDARY 
USE  a:pers 
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JOIN  TC  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 
NAME, SSN. SATRI1,  SATRI2 ,£ATRI 3 
OSE  SICTDATA 

DISPIAY  FOR  SATRI1  =  "SDESC1"  .AND.  £  AT  F 1 2 
=  "SCESC2"  OFF  FIELDS  NAME,  SSN,  SATFI1,; 
5ATRI2,  SATBI3 
IF  ECF 

S  22,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCT3  >=  "I"  .AND.  SLCT3  <=  "  N" ) 

OSE  E :QO AL 

COPY  10  A:  T  EMP  FIELD  SSN,6ATRI3  FOR  5ATFI3 
=  "SC  ESC  3" 

SELECT  PRIM  ARY 
OSE  I  :TEHP 
SELECT  SECONDARY 
OS  E  |  •  p  g  ps 

JOIN  TO  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 
NAME,  SSN,  SAIBI1,  SATSI2,  SATRI3 
OSE  SICTDATA 

DISPLAY  FOR  SATRI1  =  "SDESC1"  .AND.  SAT  FI  2 
=  "SDESC2"  CFF  FIELDS  NAME,  SSN,  6ATRI1,; 
SATHI2,  SATRI3 
IF  ECF 

S  22,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

ENDCASE 

CASE  (SLCT2  >=  "L"  .  AND.  SLCT2  <=  "N") 

DO  CASE 

CASE  (SICT3  >=  "A"  .AND.  SLCT3  <=  "I") 

OSE  E  :QOAL 

COPY  TO  A: T  EMP  FIELD  SSN,SATRI2  FOR  CATRI2 
=  " SCESC2" 

SELECT  PRIMARY 
OSE  A  : T E MP 

,  SELECT  SECONDARY 

V#  OSE  A  :PERS 

JOIN  TO  SLCTDATA  FOR  P.SSN  =  S.SSN  FIELDS; 
NAME,  SSN,  6ATBI1,  SATRI2,  £ A TRI 3 
OSE  SICTDATA 

DISPIAY  FOR  £ A  TR1 1  =  "6DESC1"  .AND.  SATFI3 
=  "5EE3C3"  CFF  FIELDS  NAME,  SSN,  SATRI1,; 
SATRI2,  SATRI3 
IF  ECF 

3  22,50  SAY  "SEARCH  COMPLETE" 

ENDIE 

CASE  (SLCT3  >=  "i"  .AND.  SLCT3  <=  "N") 

USE  A  : FERS 

COPY  TO  A:T  EMP  FIELD  NAME, SSN,£ AT R1 1  FOR; 
5ATR1 1  =  "£  DSSC1" 

SELECT  PRIMARY 
OSS  A  :TZMP 
SELECT  SECONDARY 
OSE  E:QUAL 

JOIN  TO  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 
NAME.  SSN,  6ATRI1,  SATRI2,  £ATRI3 
OSE  SICTDATA 

DISPLAY  FOR  SATRI2  =  "SDESC2"  .AND.  6 AT BI 3 
=  "£  CESC3"  CFF  FIELDS  NAME,  SSN,  SATRI1,; 
£ATR  I  2  ,  SAT  P I  3 
IF  ECF 

3  22,50  SAY  "SEARCH  COMPLETE" 

ENDI  F 

CA  SE  { SLCT  3  =  "J"  .OR.  SLCT3  =  "t") 

USE  I  : PER5 

COPY  10  A ;  T  E  M  ?  FIELD  NAME,  SSN  ,6  AT  •*  L 
£ AT R 1 1  =  "£  D LS  C 1  " 

SELECT  PRIMARY 
OSE  £  :TEMP 
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1  FOE; 


SELECT  SECONDAFY 
USE  E:QUAL 

JOIN  TO  A:  T  EMP  2  FOR  ?.SSN=S.SSN  FIELDS; 

NAME.  SSN,  £  AT  51 1  ,  SATRI2 

SELECT  P El M  A FY 

USE  A  :TEMP  2 

SELECT  SECONDAFY 

USE  E :  EST 

JOIN  TO  SLCTCATA  FOR  P.SSN=S.SSN  FIELDS; 
NAME,  SSN,  SATRI1,  SA  TRI 2 ,  £  AT  HI  3 
OS E  SICTDAT  A 

DISPLAY  FOR  6ATRI2  =  "SDESC2"  .AND.  SATBI3 
*  "SEESC3"  OFF  FIELDS  NAME,  SSN,  £  AT  R 1 1  ,  ; 
&ATRI2,  £AT  RI3 
IF  ECF 

9  23,50  SAY  "SEARCH  COMPLETE" 

END  IF 
ENDCASE 

CASE  {SLCT  2  =  "J"  .OR.  SLCT2  =  "K") 

DO  CASE 

CASE  (SLCT3  >=  "A"  .AND.  SLCT3  <=  "I") 

OS E  E : EST 

COPY  TO  A:  T  EMP  FIELD  SSN,£ATRI2  FOR  SATRI 2 
=  "SDESC2" 

SELECT  PRIMARY 
OSE  A  :TEMP 
SELECT  SECONDAFY 
OSE  I  :PERS 

JOIN  TO  SLCT DAT A  FOR  F.SSN=S.SSN  FIELDS; 
NAME,  SSN,  SATR1 1 ,  &ATRI2,  SATRI3 
US  E  ^ICTDAT A 

DISPLAY  FOR  SATRH  =  "SDESC1 "  .AND.  SATRI3 
=  "SDESC3"  OFF  FIELDS  NAME,  SSN,  S  ATRI1  , ; 
SATRI 2 ,  &ATBI3 
IF  ECF 

3  22,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCT3  >*  "I"  .AND.  SLCT3  <=  "N") 

OS E  l z PE RS 

COPY  TO  A:  T  EMP  FIELD  NAME,  SSN  , SATR1 1  FOE; 
SATR1 1  *  "&EESC1" 

OS  E  £ ; EST 

COPY  TO  A:T  EMP  2  FIELD  SSN,SATPI2  FOR; 
SATRI2  =  "&DESC2" 

SELECT  PRIMARY 
OSE  A  :TEMP 
SELECT  SECONDAFY 
OSE  A  :TEMP2 

JOIN  TO  A; T  E  MF  3  FOR  P.SSN  =  S.SSN  FIELDS; 

NAME,  SSN,  SATRI  1 ,  SA TRI 2 , &ATRI3 

SELECT  PRIMARY 

OSE  A  :TEMP3 

SELECT  SECONDARY 

OSE  E  :QO AL 

JOIN  10  SLCTDATA  FOR  P.55N=S.SSN  FIELDS; 
NAME.  SSN,  6  AT  51 1 ,  &  AT  R 12,  SATRI3 
OS  E  * ICTDAT  A 

DISPLAY  FOR  & A  TR I  3  =  "&DE5C3"  OFF  FIELDS; 
NAME,  SSN,  &  AT  FI  1  ,  6  AT  312 ,  S  ATRI  3 
IF  ECF 

a  22,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  ( SLCT  3  =  "J"  .OR.  SLCT3  =  "K") 

USE  l  : E E RS 

COPY  TO  A: T  EMP  FIELD  NAME , SSN  , SATR1 1  FOR; 
SATRH  =  "&DESC1" 

SELECT  PRIMARY 
USE  A  ; T EMP 
SELECT  SECONDARY 
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OS  E  E • EST 

JOIN  TO  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 
NAME,  SSN,  GATRI1,  SATRI2,  fl A TRI 3 
OSE  SlCTDAT  A 

DISPLAY  FOR  SATRI2  =  ''SDESC2"  .AND,  £  AT  F 1 3 
=  "&rESC3"  CFF  FIELDS  NAME,  SSN,  &  AT  ?.  II , ; 
SATR 12 ,  &&TRI3 
IF  ECF 

3  13,50  SAY  "SEARCH  COMPLETE" 

EN  DIF 
ENDCASE 
ENCCASE 

♦♦BEGIN  COAL  /  *  /  ♦ 

CASE  (SLCT1  >*  "I"  .AND.  SLCT1  <-  "N") 

♦  * EEG1N  COAL  /  PERS  /  * 

CO  CASE 

CASE  (SLCT2  >=  "A"  .AND.  SLCT2  <*  "I") 

DO  CASE 

CASE  ( SICT3  >=  "A"  .AND.  SLCT3  <=  "I") 

US  E  A  *  PERS 

COPY  TO  A:?EMP  FIELD  NAME,  SSN,  &ATRI2,; 
&ATRI2  FOR  S ATRI 2="&DESC2"  .AND.; 
£ATRI3="8DSSC3'! 

SELECT  PRIMARY 
OSE  A  ITEM? 

SELECT  SECONDARY 
USE  E:QOAL 

JOIN  TO  SLCTCATA  FOR  P.SSN  =  S.SSN  FIELDS; 
NAME.  SSN.  &  ATRI 1 ,  5ATRI2,  6ATRI3 
OSE  SLCTDAT  A 

DISPLAY  FOR  SATR  1 1  =  "  &  DESC 1  "  OFF  FIELDS; 
NAME.  SSN,  6 ATR1 1 ,  &ATRI2,  &ATRI3 
IF  ECF 

S  23,50  SAY  "SEARCH  COMPLETE" 

—  ENDIF 

9  CASE  (SLCT3  =  "J"  .OR.  SLCT3  =  "K") 

OS  E  E  *  EST 

COPY  TO  A;T  IMP  FIELD  SSN,&ATRI3  FOR  5ATRI3 
=  "&CESC3" 

OSE  E:QUAL 

COPY  TO  A; T  EKP2  FIELD  SSN,SATRI1  FOR; 
GATBI1="&DESC1" 

SELECT  EBIMARY 
OSE  A  ITEM? 

SELECT  SECONEAFY 
US E  A  •  TEMP 2 

JOIN  TO  A: T  ENP 3  FOR  P.SSN  =  S.SSN  FIELDS; 

SSN,  € ATRI 1 .  &ATRI3 

SELECT  PRIMARY 

USE  A  ; TEMP  3 

SELECT  SECONDARY 

OSE  AiPERS 

JOIN  TO  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 
NAME.  SSN.  6ATEI1,  &ATRI2,  &ATRI3 
USE  SlCTDAT A 

DISPLAY  FOR  SAT3I2  =  "SDESC2"  ; 

CFF  FIELDS  NAM E ,SSN ,£ AT  Eli ,& ATHI2 , 6 ATR I  3 
IF  ECF 

a  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCT3  >=  "L"  .AND.  SLCT3  <=  "  N " ) 

USE  E  :QUAL 

COPY  TO  A :  TEMP  FIELD  SSN  ,  S  ATR  T1 ,  &  ATPI  3  ; 

FOR  £  ATRI  3  =  "&DESC3"  .AND.  SATkII  =; 
"SDESC1” 

SELECT  PRIMARY 
OSE  AtTEM? 

E  SELECT  SECONDARY 

USE  A  :PERS 
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JOIN  10  SLCTCATA  FOR  ?.SSN=S.SSN  FIELDS; 
NAME,  SSN,  GATRH,  GATRI2,  6ATRI3 
USE  SICTDAT  A 

DISPLAY  FOR  &ATRI2  =  "&DESC2"; 

OFF  FIELDS  N AM E , SSN , S AT R1 1 , & ATRI2 , & ATE  I  2 
IF  EOF 

a  23,50  SAY  "SEARCH  COMPLETE" 

FNDIF 

FNDCASE 

CASE  (SLCT2  >=  "L"  .AND.  SLCT2  <=  "N") 

DO  CASE 

CASE  ( SICT3  >=  "A"  .AND.  SLCT3  <=  "I") 

USE  E:QUAL 

COPY  10  A:T  EMF  FIELD  SS N , & ATR 1 1 , & AT R 1 2 ; 
FOR  6ATRI1  *  "SDESC1"  .AND.  SATRI2  =  ; 
"&DESC2 " 

SELEC1  PRIMARY 
USE  I  :T£MP 
SELEC1  SECONDARY 
USE  I  :PERS 

JOIN  10  SLC1DATA  FOR  P.SSN=S.SSN  FIELDS; 
NAME,  SSN,  SATBI1,  GATRI2,  &ATRI3 
USE  SICTDATA 

DISPLAY  FOR  &A1RI3  =•  "&DESC3" ; 

OFF  FIELDS  N  AM  E , S SN ,  &  AT  R 1 1  , £•  ATRI2  ,  &  AIR  I  3 
IF  EOF 

3  23,50  SAY  "SEARCH  COMPLETE" 

FNDIF 

CASE  (SICT3  >=  "l»  .AND.  SLCT3  <=  "»") 

USE  E  :QU  AL 

COPY  10  A:TEMF  FIELD  SSN,  &ATPI1.  SATP.I2, 
&ATRI3  FOR  SATRI1  =  "&DESC1"  .AND.  6ATBI2 
=  "GDESC2"  .AND.  SATRI3  =  "EDESC3" 

SELEC1  PRIMARY 
USE  A:  TEMP 
SELEC1  SECONDARY 
US  E  1  •  p ERS 

JOIN  IC  SLCTCATA  FOR  P.  SSN  =  S.  SSN  FIELDS; 
NAME.  SSN,  &A1RI1,  &ATRI2,  6ATRI3 
OS  E  * LCTDAT  A 

DISPIAY  ALL  OFF  FIELDS  NAME, SSN,; 

SATF.I1,&ATRI2,6ATRI3 

IF  ECF 

■31  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  ( SLCT  3  =  "J"  .OR.  SLCT3  =  "K") 

USE  E;<5UAL 

COPY  TO  A:T  EMP  FIELD  SSN , & ATRI1 , & AT  PI  2  ; 
FOR  EATRI1  =  "EDESC1"  .AND.  &ATRI2  =; 
"&DESC2" 

USE  E  :  EST 

COPY  10  A; T  EMP  2  FIELD  SSN,GATRI3  FOR; 
GATRI3  =  "G  CESC3" 

SELECT  PRIMARY 
USE  A:TEMP 
SELECT  5EC0NCAFY 
US  E  A  'TEMP  2 

JOIN  10  A: T  EMP  3  FOR  P.3SN  =  S.SSN  FIELDS; 

SSN,  GATRI1,  &ATRI2,  &ATRI3 

SELECT  PRIMARY 

USE  A  :TEMP3 

SELECT  SECONDARY 

USE  A:PERS 

DISPIAY  FOR  P.  SS  N  =  S  .SSN  OFF  FIELDS  NAME,; 
SSN,  SATRI1,  &ATRI2,  EATRI3. 

IF  ECF 

a  22,50  SAY  "SEARCH  COMPLETE" 

ENDIF 
EN  DCAS E 
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CASE  (SLCT2  =  "J"  .CR.  SLCT2  =  "K") 

CO  CASE 

CASE  (S1CT3  >=  "A"  .AND.  SLCT3  <=  "I") 

US  E  E • EST 

COPY  10  A:TEME  FIELD  SSN,SATRI2  FOR  SATFI2; 
=  "  S  D  ESC  2" 

USE  E :QUAL 

COPY  10  A: T  E  ME  2  FIELD  SSN,SATRI1  FOR; 

SATRI  1  =  "&  CESC1" 

SELECT  PRIMARY 
USE  A  :TEMP 
SELECT  SECONDARY 
US E  A  ’TEMP 2 

JOIN  TO  A:  TEMP  3  FOR  P.SSN=S.SSN  FIELDS; 

SSN, &ATRI1, SATRI2 
SELECT  PRIMARY 
USE  A  :TEMP3 
SELECT  SECONDARY 
USE  A:PERS 

DISPLAY  FOR  S . S ATRI 3= "5 DSSC3"  .AND.; 
F.SSN=S.SSN  OFF  FIELDS  NAME,  SSN,  &  ATRI  1,  ; 
&ATRI2,  SATRI3 
IF  ECF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SICT3  >=  "l"  .AND.  SLCT3  <=  "N") 

USE  E  :QUAL 

COPY  TO  AtTEMP  FIELD  SSN , & ATR I 1 . & ATRI3 ; 

FOR  &  ATRI  1  =  "SDESC1"  .AND.  SATP.I3  =; 
"&DESC3" 

USE  E  : EST 

COPY  TO  A: T  EMP  2  FIELD  SSN,SATRI2  FOR; 

SATRI2  =  "&DESC2" 

SELECT  PRIMARY 
USE  A  :TEMP 
SELECT  SECONCAFY 
US  E  A  '  T  E  MP  2 

JOIN  TO  A: T  EMF3  FOR  P . SSN-S. SSN  FIELDS; 

SSN,  6 ATRI 1 .  SATRI2,  5 ATRI 3 
SELECT  PRIMARY 
USE  A  : TEMP 3 
SELECT  SECONDAEY 
US E  A ; D  ERS 

DISPLAY  FOR  P.SSN  =  S.SSN  OFF  FIELDS  NAME,; 
SSN,  SATRI 1 ,  SATRI2,  &ATRI3 
IF  ECF 

3  23,50  SAY  "SEARCH  COMPLETE" 

ENDI  F 

CASE  ( SECT  3  =  "J"  .OR.  SLCT3  =  "K") 

US  2  E  :  EST 

COPY  TO  A: T  EMP  FIELD  SSN , 6 ATRI2 , S AT RI 3  : 

FOR  SSTRI2  =  "SDESC2"  .AND.  &ATRI3  =  »Sd£sC3" 
USE  E  :QU AI. 

COPY  TO  A;T  EMP2  FIELD  SSN,SATRI1  FOP.; 

SATR  1 1=" &DE SC  1 " 

S2LECT  PRIMARY 
USE  A  :TEMP 
SELECT  SECONDARY 
US  E  A  ;  T  E  MP  2 

JOIN  TC  A :  T  E  M  P  3  FOR  P.SSN=S.SSN  FIELDS; 

SSN,  SATR1 1  .  &ATRI2,  SATRI 3 

SELECT  PRIMARY 

USE  A  :TEMP  3 

SELECT  SECONDARY 

USE  A  :  P  ERS 

DISPLAY  FCR  F.SSN=S.SSN; 

OFF  FIELDS  N AM E , SSN , & ATR1 1 ,SA TRI 2 , S ATE 1 3 
IF  ECF 

3  23,50  SAY  "SEARCH  COMPLETE" 
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EN  D  IF 
ENDCASE 
ENDCASE 

+*  BEGIN  ESI  /  *  /  * 

CASE  (SLCT1  =  "J"  .OR.  SLOT  1  =  "K") 

**  E  EG  IN  EST  /  EERS  /  * 

CO  CASE 

CASE  ( SLCT2  >=  "A'1  .AND.  SLCT2  <=  "I”) 

DO  C AS  E 

CASE  (SICT3  >=  "A"  .AND.  SLCT3  <=  "I") 

OSE  A'P^RS 

COPY  TO  A :T  EBP  FIELD  NAME,  SSN,  S  ATR 12,  ; 
SATRI3  FOR  £ ATFI 2  =  "SDESC2"  .AND.  SATRI3  ; 
=  "5EESC3" 

OS  E  E  *  EST 

COPY  TO  A:  T  EMP  2  FIELD  SSN,SATRI1  FOR; 
SATRI1="SDESC1" 

SELECT  PRIMARY 
OSE  I :T  £  HP 
SELECT  SECONDARY 
OSE  A  :TE8P2 

DISPLAY  FOR  P.SSN=S.SSN  OFF  PIELDS  NAME,; 
SSN,  £  AT  R1 1  ,  SATRI2,  SATFI3 
IF  ECF 

a  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (S1CT3  =  "J"  .OR.  SLCT3  =  "K") 

OS  E  £  *  EST 

COPY  TO  A :  T  E  M  P  FIELD  SSN ,S ATRI 1 . S ATRI3 : 

FOR  SATRI1*  "SEESC1"  .AND.  &  AT  Rl3=  "S  DESC  3" 

SELECT  PRIMARY 

OSE  l:TEMP 

SELECT  SECONDARY 

OSE  A : PERS 

DISPLAY  FOP.  P . SSN  =S . S  SN  .AND.  S.&ATRI2  =; 
"&.':ESC2,,  OP F  FIELDS  NAME,  SSN,  SATRI1,; 
SATRI2,  SAT 813 
IF  ECF 

a  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCT3  >»  "  L"  .AND.  SLCT3  <=  "N") 

OSE  E:QUAL 

COPY  TO  A:T  I  ME  FIELD  SSN,SATRI3  FOR  CATPI3 
=  "SCESC3" 

OSE  £  " EST 

COPY  io  A:  T  EM  P  2  FIELD  S5N,6ATRH  FOR; 
SATRH="6DESC1" 

SELECT  PRIMARY 
USE  A  :TEMP 
SELECT  SECONDARY 
USE  A  :TEMP2 

JOIN  1C  SLCTDATA  FOR  P.3SN=S.SSN  FIELDS; 

SSN ,  EATR1 1  .  &  ATR 1 3 

SELECT  PRIMARY 

USE  SLCTDATA 

SELECT  SECONDARY 

OSE  A  :  P  E  R  S 

DISPLAY  FOR  P.SSN  =  S.SSN  .AND.  &ATP.I2  =; 
"&DESC2"  OFF  FIELDS  NAME,  SSN,  &ATRI1,; 

SAT  R 12,  &ATRI3 
IF  ECF 

a  23,50  SAY  "SEARCH  COMPLETE" 

END  IF 
ENDCASE 

CASE  (SLCT2  >=  "L"  .AND.  SLCT2  <=  "N"' 

DO  CASE 

CASE  (SLCT3  >=  "A"  .AND.  SLCT3  <=  "I") 

USE  E:QUAL 

COPY  TO  A: T  EMP  FIELD  SSN,SATRI2  FOR  SATRI2 


*  "SCESC2" 

OS E  E'EST 

COPY  TO'  A:  T  EMP  2  FIELD  SSN,SATRI1  FOR; 
£ATRI1="SD£SC1  " 

SELECT  FBI M  ARY 
USE  A'.TEMP 
SELECT  SECONDARY 
USE  A  :TEMP 2 

JOIN  TO  SLCTEATA  FOR  P.SSN  =  S.SSN  FIELDS; 

SSN,  £ATRI1.  6ATRI2 

SELECT  PRIMARY 

OSE  SLCTDAT  A 

SELECT  SECONDABY 

USE  A : P E R S 

DISPUY  FOR  6ATRI3  =  "SDESC3"  .AND.; 
P.SSN=S.SSN  OFF  FIELDS  NAME,  SSN,  £  A  T  R 1 1 , 
SATRI2,  &ATEI3 
IF  ECF 

S  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  ( SLCT  3  >*  "I"  .AND.  SLCT3  <=  "N") 

OSE  E :QU  AL 

COPY  TO  A: T  EMP  FIELD  SS N  , S ATRI2 . 6 ATRI 3 ; 
FOR  £ATRI2= "SDE3C2"  .AND.  &  ATRI3*  "6  DESC  3" 
OS  E  E’EST 

COPY  TO  A:  T  E  M  E  2  F’ELD  SSN,£AT?.I1  FO  F. ; 
£ATRI1  =  "  &DESC1" 

SELECT  PRIMARY 
USE  I  :TEHP 
SELECT  SECONDARY 
USE  A  :TEMP2 

JOIN  TO  SLCTDATA  FOR  P.SSN  =  S.SSN  FIELDS; 

SSN,  SATRI1 .  CATRI2,  SATRI3 

SELECT  PRIMARY 

USE  SLCTDATA 

SELECT  SECONCAFY 

USE  l:PEBS 

DISPLAY  FOR  P.SSN=S.SSN  OFF  PIELDS  NAME,; 
SSN,  £  AT  R1 1  ,  5ATRI2,  &ATRI3 
IF  ECF 

3  23,50  SAY  "SEARCH  COMPLETE" 

INDIF 

CASE  (SLCT3  =  "J»  .OR.  SLCT3  =  "K") 

OSE  E  : EST 

COPY  TO  A;T  EMP  FIELD  SSN ,£  ATR  II .  &  ATRI  3  ; 
FOR  £  ATR 1 1  = "&D  ESC  1 "  .AND.  & ATRI3  =  " 6 DESC 3" 
OSE  E  :QC AL 

COPY  TO  A: T  EMP  2  FIELD  SSN,£ATRI2  FOR; 
£ATRI2="6DESC2" 

SELECT  PRIMARY 
USE  A  ITEM? 

SELECT  SECONDABY 
USE  A :TEMP 2 

JOIN  TO  A:T  EMP  3  FOR  P.5SN  =  S.SSN  FIELDS; 

SSN.  £ ATR1 1 .  £  AT  R 1 2 ,  6ATRI3 

SELECT  PRIMARY 

USE  A  : TEMP 3 

SELECT  SECONDARY 

USE  A  : PERS 

DISPLAY  FOR  P.SSN  =  S.SSN  OFF  FIELDS  NAME.; 
SSN,  £ ATR1 1  ,  £  A  T  R 1 2 ,  &ATRI3 
IF  ECF 

a  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 
EN  DCAS  c 

CASE"‘(SLCT2  =  "J"  .CR.  SLCT2  =  "K") 

EO  CASE 

CASE  (SICT3  >=  "A"  .AND.  SLCT3  <=  "I") 

USE  E  ;  EST 
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COPY  TO  A:TEMF  FIELD  SS  N  ,  5  ATR  1 1 .  &  A  TP  I  2  : 

FOR  SATRI1="&DESC1"  .AND.  &ATRI2="SDESCz 

SELECT  PRIMARY 

USE  A : TEMP 

SELECT  SECONDARY 

USE  A  : PEES 

DISPLAY  FOR  P.SSN=S.SSN  .AND.  &ATRI3  =; 
"S DESC3"  OF?  FIELDS  NAME  ,  SSN,  &ATRI 1 ,  ; 
6ATR I 2 ,  5ATEI3 
IF  ECF 

9  23,50  SAY  "SEARCH  COMPLETE" 

FNDIF 

CASE  (SICT3  >=  "L"  .AN".  SLCT3  <=  nN") 

US  E  I  •  EST 

COPY  TO  A:T  EMP  FIELD  SS N ,& ATR II . & ATRI2 ; 
FOR  S  ATR 1 1  =  "SD  ESC  V  .AND.  £ A7RI2  =  " &DESC 2 
USE  E:QUAL 

COPY  TO  A:T  EMP2  FIELD  SSN,SATRI3  FOP; 
&ATPI3  =  "&DESC3" 

SELECT  PRIMARY 
USE  1:TEMP 
SELECT  SECONDARY 
USE  A  : TEMP 2 

JOIN  TC  SLCTCATA  FOR  P.SSN=S.SSN  FIELDS; 

SSN.  SATRI1,  &ATRI2,  SATRI3 

SELECT  PRIMARY 

USE  S  J.CTDAT  A 

SELECT  SECONDARY 

USE  1:?ERS 

DISPLAY  FOR  P.SSN=S.SSN  OFF  FIELDS  NAME, 
SSN,  EATEI1,  £  ATRI2 ,  SATRI3 
IF  ECF 

a  23,50  SAY  "SEARCH  COMPLETE" 

ENDIF 

CASE  (SLCT3  =  "J"  .OR.  SLCT3  *  "E") 

USE  A  :  EST 

COPY  TO  A:T IMF  FIELD  SSN,  CATRI1,  &ATRI2 
&ATRI2  FOR  EATRI1  =  "5DESC1"  .AND.  SATRI 
=  "6EISC2"  .AND.  &ATRI3  =  "&DESC3" 

SELECT  PRIMARY 
USE  A  :TEMP 
SELECI  SECONDARY 
OS  E  i  2  P  E  RS 

DISPLAY  FOR  P.SSN=S.SSN  OFF  FIELDS  NAME, 
SSN,  fiATRII  ,  5ATRI2,  &ATRI3 
IP  ECF 

a  23,50  SAY  "SEARCH  COMPLETE" 

ENDIf 
EN  DCASE 
ENECASE 
ENCCASE 

ACCEPT  "PRESS  ’ENTER'  TO  CONTINUE"  TO  PROCEED 
ENDIF 
USE 

RELEASE  ALL  LT  KE  M??????? 

RELEASE  REPEAT,  COUNT  , 

RELEASE  ALL  LIKE  ATRI7??? 

RELEASE  ALL  LIKE  SLCT???? 

RELEASE  ALL  LIKE  DESC7??? 

SET  CCNSCLE  OFF 
DELETE  FT  L E  A:  T  E  KP 
DELETE  FILE  A:  T  EM?  2 
DELETE  FILE  A : T  E  MP3 
SET  CCNSCLE  ON 
FETURN 


E.  NCSS1ASEABD  HELP  ROUTINE 


*  ROUTINE  NAME:  HOST  EHLP  .PR  G 

*  MODDLE  NA  £E:  N  CNST  A  RE  ARD  REPCRT  GENERATOR 

*  VERSION:  4.1.0 

*  AUTHOR:  R.E.  PHOIETT 

*  CATE:  10EEB84 

*  VARIAEIES  USED:  NONE 

*  VARIAEIES  MODIFIED:  NONE 

*  VARIAEIES  CREATED:  EROCEED 

*  VARIAEIES  RELEASED:NONE 

*  FI1ES  C  EE  NED/C  IOSEE:NCNE 

*  TEME  E1LES  CR  E  AT  ED  :  NON  £ 

*  USING  SUBROUTINES:  NCSTDRPT.  PPG  (4.0) 

*  DESCRIPTION:  THIS  ROUTINE  SUPPLIES  RESPONSE  TO  THE  USER'S 

*  RECOEST  FOR  "HELP”  WHILE  IN  THE  NONSTANDARD  REPORT  MENU. 

* 

ERASE 

2  0,25  SAY  ’’NONSTANDARD  COMMAND  GENERATOR" 

3  2.0  SAY  "LOCATE  All  MARINES  THAT  SATISFY  THE  FOLLOWING; 
CONDITION:" 

2  4  ,  C  SAY  "  <A TT RI BUT E  >  < DESCRIPTO R>" 

3  4,0  SAY  "  " 

a  5,0  SAY  "  " 

2  6,0  SAY  "  " 

3  7,0  SAY  "  RANK  IS  E5  " 

2  9.0  SAY  "  " 

a  1  0  ,C  SAY  " — * - " 

a  11,0  SAY  "  UP  TC  THREE  CONDITION  STATEMENTS  MAY  EE; 

JOINED  " 

3  12, C  SAY  "  POP  EXAMPLE  " 

3  13,0  SAY  "LOCATE  ALL  MARINES  THAT  SATISFY  THE  FOLLOWING; 
CONDI  TIC  NS  « 

a  14, C  SAY  "  <ATTRIBUTE>  < DESC R IPTO R >" 

a  15,0  SAY  "  " 

a  1  6  ,C  SAY  "  -'E'STK -  IS  - T5 - " 

a  17,0  SAY  "  AND  '» 

a  1  8 , C  SAY  »  CCBPANY  IS  A  CO  " 

a  19,0  SAY  "  AND  " 

a  20, C  SAY  "  PRIMARY  BOS  IS  0331  " 

2  21,0  SAY  "JOINING  THESE  THREE  CONDITION  STATEMENTS  GIVE; 
YOU  THE  NAME  " 

a  22  .  C  SAY  "AND  SS N  CF  ALL  E5 • S  IN  A  CO.  THAT  HAVE  A  0331  ; 
PRIMARY  KOS  " 

a  22,0 

ACCEPT  "PRESS  'ENTER'  TO  CONTINUE"  TO  PROCEED 
RETURN 
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C.  SELECT  ATTRIBUTE  FOOTISE 


*  ROUTINE  NAME:  SLCTAIBI.PRG 

*  MODULE  NAME:  NONSTANDARD  REPORT  GENERATOR 

*  VERSION:  4.2.0 

*  ADTEOR:  R.E.  PRUIETI 

*  DATE:  12FEB8U 

*  V ARIAELES  USED:  COONT,  SLOT  1  ,  SLCT2,  SLCT3 

*  VARIABLES  MO  DI  FI  ED  :  NONE 

*  V  ARIAELES  CREATED:  REP  EAT  ,  MATRIBUT  ,  MATRI 1  ,  AT  P-1 1  , 

*  MATRI2,  ATRI2,  MAT  FI3 ,  ATRI3 

*  VARIAELES  RELEASED:  NONE 

*  FILES  CPENED/CLOSEI:NONE 

*  TEMP  FILES  C R  EAT  ED  : NON  E 

*  USING  SOEEOUTI  NES:  NCSTDRPT.  PPG  (4.0) 

*  DESCRIPTION:  THIS  ROUTINE  PROMPTS  THE  USER  TO  SELECT 

*  ATTRIBUTES.  AFTER  THE  FIRST  AND  SECOND  SELECTION  THE 

*  USER  IS  ASKED  IP  HE  WANTS  TO  SELECT  ANOTHER  ATTRIBUTE. 

*  IF  THE  RESPONSE  IS  YES.  THE  SELECTION  PROCEDURE  IS 

*  REPEATED.  THIS  PROCESS  IS  CONTINUED  UNTIL  THE  USER 

*  ANSWERS  NC  OB  THREE  ATTRIBUTES  HAVE  BEEN  SELECTED.  THE 

*  ROUTINE  WILL  AUTOMATICALLY  SORT  AND  LOCATE  THE 

*  APFROFRI ATE  DATABASE  FILES  AND  DISPLAY  THE  NAME,  SSN  AND 

*  ATTRIBUTE  INFORMATION  FOR  EACH  RECORD  THAT  SATISFIES  THE 

*  OSES  SPECIFIED  CRITERIA. 

STORE  T  TC  REPEAT 
EO  WHILE  REFEAT  *  T 
STORE  F  TC  REPEAT 
ERASE 

IF  CCCNT  =  2  .OR.  COUNT  =  3 
CO  CASE 

CASE  SECT  1  =  "A" 
i  1,1  SAY 
CASE  SICT1  =  "  B" 

3  2,1  SAY  "*'» 

CASE  SLOT  1  =  "C" 
a  3,1  SAY 
CASE  SICT1  *  "D" 
a  4,1  SAY  "*’« 


C 

A 

E  SICT 

1  = 

ft 

E" 

d 

5.  1  S 

AY 

it 
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w 

l  SICT 

1  = 

II 

F" 

a 

6,  1  S 

AY 

••  * 

ii 

c 

A 

c 

E  SICT 

1  a 

II 

G" 

2 
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AY 

l»* 

ii 

c 

A 

SE  SLOT 

1  = 

II 

H" 

a 

8.1  S 

AY 

II* 

ii 

c 

A 

c 

E  SECT 

1  a 

W 

I” 

a 

9,  1  S 

AY 

II  * 

ii 

c 

A 

SE  SLOT 

1  = 

It 

J" 
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II 

*» 

c 

A 

s 

E  SECT 
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14 

K" 

a 

11,1 

SAY 

II 

+» 

c 

A 

c 

E  SECT 
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II 

L" 

a 

12,1 

SAY 

II 

*" 

c 

A 

c 

E  SLOT 

1  a 

II 

M" 

c 

A 

a 

c 

13.1 

E  SLOT 

SAY 
1  = 

11 

II 

+" 

U" 

3 

14,1 

SAY 

11 

#•' 

ENDC 

A 

SE 

END 

I 

E 

IF 

C 

C 

CNT  = 

3 

DO 

c 

A 

SE 

C 

A 

c 

E  SICT 
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11 

A" 

C 

A 

0 

c 

1,1  S  AY 
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11 

ti 
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1 
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AY 

II  * 

ii 
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CASE  SICT2  =  "C" 
3  3,1  SAY 
CASE  SICT2  -  "D" 
3  4,1  SAY 
CASE  SLOT 2  =  "  £" 
2  5,1  SAY 
CASE  SICT2  =  "F" 

2  6,1  S  AY 
CASE  S Id 2  =  " G" 

3  7,1  SAY 
CASE  SIC  12  =  " H'* 

3  8.1  SAY  "*«• 
CASE  SICT2  =  "I" 
3  9,1  S  AY  "*» 
CASE  SICT2  =  "J" 
3  10,1  SAY  "♦» 
CASE  SICT2  =  "  K" 
a  11,1  SAY 
CASE  SIC  1 2  =  "I" 
a  12.1  SAY  " *" 
CASE  SLCT2  =  "  M" 


3  13.1  SAY 
CASE  SlCT2  = 
2  14,1  SAY 
ENDC  A  £E 


it  *it 
ii  i^ii 
it  *n 


indie 

a  0,29 

r 


2 

2 

2 

2 

2 

2 

2 

2 


1  6 .2 
11,2 
12^2 

13.2 

14.2 

22.0 


SAY  "SELECT  ATTRIBUTE" 

SAY  "A.  ..BANK" 

SAY  "B.  ..ERIHAEY  MOS' 

SAY  "C.  ..  SECONEARY  MCS" 

SAY  "D.  .  .  COMP  A I  Y" 

SAY  "E.  .  .  PLATCCN" 

SAY  "F.  .  .  JOIN  CATE" 

SAY  "G.  ..EAS" 

SAY  "H.  .  .  BIRTH  DATE" 

SAY  "I.  . .WEIGfcl  CONTROL" 

SAY  "J.  .  .  FFT  CAE" 

SAY  "K.  , . PFT  ISO" 

SAY  "L.  ..SWIM  QUALIFICATION" 
SAY  "M.  ..  RIFLE  QUALIFICATION" 
SAY  "N...EISTCL  QUALIFICATION" 


ATTBIEUTE  ==  => "  TO  M  AT  El BUT 


«  »  W 

ACCEPT  "SELECT 
IF  COUNT  *  1 

STOFE  HATRIBOT  TO  SLOT  1 
DO  CASE 

CASE  l(SLCTI)  =  "A" 

STOFE  'RANK  '  TO  CATBI1 
STCFE  ’RANK*  TO  ATRI1 
ri«E  »fSICT1\  =  "FM 

STORE  'PRIMARY  80S'  TO  MATSI1 
STOFE  'PHI  MEMOS  '  TO  AT  R 1 1 
CASE  IjSICTI)  =  "C" 

'SECONDARY  MOS'  TO  MATRI  1 
'SECMOS  '  TC  AT  HI  1 
CASE  !  (SICT 1)  =  "C" 

SIQRE  'COMPANY'  TO 
STCFE  'COMPANY'  TC 
CASE  l(SLCTI)  =  "E" 

STORE  'PLATCON*  TO 
STOFE  'PLATOON*  1C 
riif  •  /SICTll  =  OF" 

STOFE  'JO  IN  CATE  '  TO  MATRI1 
STCFE  ‘JOINDATE'  TO  ATRI1 
CASE  !  ( S ICT 1  )  =  "G" 

STOFE  'EAS'  TO  MATRI1 
STOFE  'EAS'  TO  AT  H1 1 
CASE  (SLOT  1)  =  "E" 

STOFE  'BIRTH  DATE'  TO  MAT  F1 1 


STORE 

STCFE 


MAT  Ell 
AT  R  1 1 

MAT  F1 1 
ATR  1 1 


STOFE  'BRTHEATE*  TC  ATFI1 
CASE  MSLCT1)  =  "I" 

STORE  '  HEIGHT  CONTROL  *  TC  MATRI1 
STORE  * HTCO  NT '  TC  ATRI 1 
CASE  !  (SLCT  1)  =  "J" 

STORE  'PFT  CNE'  TO  MAT  R1 1 
STOFE  *  PFT  1  CL  SS  '  TO  ATRH 
CASE  !(SLCT1)  *  "  K" 

STOEE  'PFT  TWO*  TO  MAT  R1 1 
STOFE  •FFT2CLSS*  TO  AT  R1 1 
CACE  '  (SICT1)  =  "  I” 

STORE  'SHIM  Q0A  IIFIC  AT  ION  *  TO  MATRI1 
STORE  'SHIMQUAL'  TO  AT  Ell 
CASE  l(SLCTl)  *  "Mn 

STORE  'RIFLE  QO A IIFIC A  TIC N '  TO  MATRI1 
STOFE  'RPLQUAL'  TC  ATRI1 
CASE  !  ( S LCT  1 )  *  "»" 

STORE  'PISTOL  Q 0 A IIFIC ATI C N »  TO  M  AT  R1 1 
STOFE  *  PSTQ  OAL*  TO  ATRI1 
OTHER  HI SE 

STORE  T  TO  REPEAT 
ENECASE 
INDIE 

IF  CCCNI  =  2 

STCEE  MATRIBOT  TO  SLOT 2 
DO  CASE 

CASE  WSLCT2)  =  "A" 

STOEl!  'RANK'  TO  EATRI2 
STCEE  'RANK'  TO  STRI2 
CASE  !  { S ICT2 )  =  "E" 

STORE  ’PRIMARY  HCS*  TO  MATRI2 
STORE  'PRI  MEMOS  '  TO  ATRI2 
CASE  !( SLCT2)  *  "C 

STOFE  'SECONDARY  MGS'  TO  MATRI 2 
STORE  ' SEC M OS  •  1C  ATRI  2 
CASE  !  (SLCT2)  =  "C" 

STORE  'COMPANY*  TO  MAT  RI2 
STOEE  'COMPANY'  TC  ATRI2 
CASE  !  (SLCT  2)  *  "E" 

STORE  'PLATCON*  TC  MAT RI2 
STORE  'PLATOON*  TO  ATS  12 
CASE  !  { S  LCT  21  =  "f" 

STCEE  'JOIN  LATE '  TO  MATRI2 
STORE  'JOIN  CATE  '  TO  ATRI2 
CASE  !  (SLCT  2 )  =  "G" 

STORE  '  EAS '  TO  MATRI2 
STOEE  'EAS*  TO  ATRI.2 
CASE  !  (SLCT  2)  *  "  E" 

STOFE  'BIRTH  DATE*  TO  BATEI2 
STORE  '  BR  TH  CAT  E  •  TC  ATRI2 
CASE  !  (S  LCT  2)  =  ''I” 

STORE  •  HEIGHT  CONTROL'  TC  MAT  £12 
STORE  '  HTCO  NT '  TC  ATRI  2 
CASE  !  (SLCT 2)  *  "0" 

STO  E  £  ’PFT  ONE’  TO  MATRI2 
STOFE  'PFT  1  CLSS  '  TO  AT  R 1 2 
CASE  MS1CT2)  * 

STORE  'PFT  THO'  TO  MAT  RI2 
STOEE  'PPT2  CLSS  *  TO  AT RI2 
CASE  !  (SLCT  2)  =  "I" 

STORE  'SHIM  QO  A  IIFICAT ICN '  TO  MATRI2 
STOFE  ' SH I MQO  A  L  '  TO  AT  El 2 
CASE  I  (SLCT  2)  =  "H” 

STORE  'RIFLE  QO  A  II FICA  TIC  N '  TO  MATRI2 
STOFE  'RFLQUAL'  TO  ATRI2 
CASE  i  (SLCT 2}  =  "  R ” 

STOFE  'PISTOL  Q 0 ALIFIC ATICN •  TO  MATRI 2 
STOFE  'PSTQ  OAL  '  TO  ATRI2 
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C1HEEKISE 

STOFE  1  TO  REPEAI 
ENCCASE 
INDIE 

IP  CCCNT  =  3 

STCEE  EATRIBUT  TO  SICT  3 
DO  CASE 

CASE  I  (SICT  3)  *  "  A" 

STOFE  •RANK1  TO  EATRI3 
STOFE  'RANK'  TO  ATRI3 
CASS  !( SICT3)  =  "E” 

STOFE  '  PRIM  ART  BOS'  TO  MATRI3 
STOFE  'PRI MEMOS  '  TO  AT  RI3 
CASE  !  (S ICT3 )  =  "C" 

STOFE  •SECONDARY  BOS'  TO  BATRI3 
STOFE  'SECMOS'  TC  ATRI 3 
CASE  !  (SICT  3)  =  "C" 

STORE  'COMPANY '  TC  MAT  FI  3 
STORE  'COMPANY'  TC  AT  R 1 3 
CASE  !  (SICT  3)  =  "E" 

STOFE  'PLATOON'  TC  MAT FI3 
STOFE  'PLATOON'  TO  ATRT3 
CASE  !  (  S  LOT  3  )  *  "  F  " 

STOFE  'JOINLATE'  TO  MATRI3 
STOFE  'JOIN  CATE  '  TO  AT  BI3 
CASE  !  (S ICT3 )  =  "G" 

STOFE  'EAS*  TO  MATRI3 
STOFE  'EAS'  TO  ATRI3 
CASE  !  (SICT  3)  *  "E" 

STOFE  'BIRTH  DATE'  TO  BAT  FI  3 
STCEE  'BRTHCATE'  TC  AT EI3 
CASE  I  (SLOT  3)  =  "I" 

STOFE  •  WEIGHT  CONTROL '  TC  MAT  HI 3 
STOFE  ’  WTCO  NT »  TC  ATRI 3 

f _  CASE  1  ( S  LCT  3 )  =  "0" 

VJL  STORE  '  PPT  ONE*  TO  HATRI3 

STOFE  'PFTiaSS'  TO  ATRI3 
CASE  !  <  S ICT3  )  *  "K" 

STOFE  ' PFT  TWO'  TO  HATRI3 
STOFE  ' PFT2CLSS '  TO  AT  BI3 
CASE  !  (SLCT  3)  *  "I" 

STOFE  'SWIM  QUALIFICATION'  TO  MATRI3 
STOFE  ' SWI EQUAL  '  TO  AT  613 
CASE  !  (SICT  3)  =  "M" 

STORE  'RIFLE  QO  A  II FIC  A  TIC  N »  TO  MATRI3 
STORE  'RFLQUAL'  TO  ATRI3 
CASE  MSLCT3)  =  "N" 

STCEE  'PISTOL  0 C ALT  PIC ATIC N •  TO  MATRI3 
STORE  'PSTQUAL '  TO  ATR 1 3 
OTHEBSISE 
STORE  T  TO  REPEAT 
ENCCASE 
INDIE 

DO  SIC1DESC 

ENDDC 

RETURN 


103 


SELECT  i'ESCEIPTGB  ROUTINE 


t; 


«> 


t. 


ROUTINE  NAME:  SLCT C ESC . PR 0 

MODULE  NAME:  NON  ST  AN  CARD  REPORT  GENERATOR 

VERSION:  4.2.  1.0 

AUTHOR:  R . E.  PBOIETT 

CATE:  14EEB84 

VARIABLES  USED:  COUNT, 

MODIFIED:  DESC1,  DESC2,  DESC  3 
CREATED:  BBANK,  BSECMOS,  MCOMP  ANY 
MEAS.  MWTCONTL,  MPFIONE,  MPFTTWO, 
HP  IS T -  -  -  - 


V  ARIAELES 
VARIABLES 
MJOINETE, 
HRIFC  UAL 


CUAL,  MPIS^U 
SPLAT  2  ,  r,  JNDT  E2, 


MP 

MSW 


MPFTTMC2, 
MS  ECMOS3, 
MWTCNTI3, 
MPISQAI3, 
VARIABLES 


HS  W  MCA  L2  , 
MCOMPNY3, 
HPFTCNE3  , 


W  n  X  U  m  LkTT  (  W 

AL.  MRANK2,  BP  RIM OS  2,  McECMOS2, 
MEAS2,  HEIRDTE2,  MWTCNTL2.  MPr 
SRIFQAL2,  MPISQAL2,  MRANK3. 
MPLAT3.  HJNDTE3.  MSAS3,  MBI 
MPFTTWC3,  MSWMQAL3,  MRIFQAL 


LATCON, 

MQUAL, 

MCOM  F  NY  2, 
TONE2  , 
MPRIMCS3, 
RDTE3  , 

3, 


NCNE 
;  NONE 
NONE 
SLCTAT  R I .  FRG 


R  EACH 
1FTIQN  F CP. 
HE  USER 
E  WILL  ASK 
FPROPRIATE 


RANK  DESCRIPTION" 


RELEASED: 

FILES  CPENED/CLOSEL 
TEMP  FILES  CREATED: 

USING  SUBROUTINES:  SLCTAT  R I . PRG  (U.2.0) 

DESCRIPTION:  THIS  FCUTINE  FHCMPTS  THE  USER  AFT 3 
RECOEST  FOR  A  NEW  ATTRIBUTE  TO  SELECT  THE  D ESC R 
THE  CORRESPONDING  ATTRIBUTE.  FOR  EXAMPLE,  IF  T 
HAS  SELECTED  THE  ATTRIBUTE  COMPANY,  THIS  ROUTIN 
WHICH  COBEANY  AND  PROVIDES  A  RANGE/EXAMPLE  OF  A 
OESCRI ETICNS  (E.G.,  A  CO,  B  CO,  ETC). 

RASE 

F  COUNT  =  1 
CO  C.‘.  SE 

CASE  !  (SLCT  1)  =  "A" 

BTGBE  «  •  TO  MBANK 

i  8,0  SAY  "TYPE  IN  DESIRED 
" (E1.E5.02, ETC . ) " 

8  8,48  GET  MR  AN  k  PICTURE  'XX* 

BE  A  £ 

STORE  BRANK  TO  CESC1 
CASE  USLCT1)  =  "S" 

STORE  '  *  TC  ZPRIMC5 

3  8,0  SAY  "TYPE  IN  DESIRED  PRIMARY  MOS  DESCRIPTION"; 

" (03l1  ,0331  .ETC.)  " 
a  8,58  GET  MPRIBCS  PICTURE 
RE  At 

STORE  BPRIMCS  TC  DESC1 
CASE  I  (SLCT  1)  »  "C" 

STORE  •  '  TC  B53CMCS 

3  8,0  SAY  "TYPE  IN  DESIRED 
"(0*11  ,0331  -ETC.)  " 
a  8.60  GET  MSEC  BOS 
BEAL 

STORE  BSECBCS  TC  DESC1 
CASE  1  (SLCT  1)  =  "C" 

STORE  *  '  TC  MCOBFANY 

a  8,0  SAY  "TYPE  IN  DESIRED  COMPANY  DESCRIPTION  (A"; 
"CC,VF  NS  CO.HSS  CO)  " 

a  8.58  GET  MCOMPANY  PICTURE  'XXXXXX' 

BE  Ac 

STCRE  MCOMPANY  TO  DESC  1 
CASE  !  JSLCT1 )  =  "E" 

STORE  *  »  TO  M PLATOON 

a  8.0  SAY  "TYPE  IN  DESIREE  PLATOON  DESCRIPTION  (1ST"; 
"PLAT  3D  PLAT  ETC)" 

3  8.66  GET  MpIaTCON  PICTURE  'XXXXXXXXX' 

PE  AD 

STOFE  MPLATOON  TO  DESC  1 
CASE  !  (SLCT1 )  =  "F" 

STOFE  •  •  TC  MJOINETE 

a  8,0  SAY  "TYPE  IN  DESIRED  JOIN  DATE  DESCRIPTION"; 


xxxx 


SECONDARY  MCS  DES CRI FT TCN " ; 


;s  PICTURE  ’XXXX* 
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i  r 


"  (220183,01  83  - 33  . ETC.)  " 

3  8.64  GET  MJOINtTE  PICTURE  'XXXXXX' 

PE  AD 

STQFE  MJOINtTE  TC  DESC  1 
CASE  l(SLCTI)  =  "G" 

STOFE  ’  1  TO  ME  AS 

a  8.0  SAY  "TYPE  IN  DESIRED  EAS  DESCRIPTION"; 

"  (220183,0  1  63.  83, ETC.)  " 

2  8  .55  GST  BEAS  PICTURE  ‘XXXXXX* 

BEAD 

STOFE  MEAS  TO  D  ESC  1 
CASE  !  ( S  LCT 1  )  *  "B" 

STOFE  *  *  TC  M8IR  DATE 

S  8.0  SAY  "TYPE  IN  DESIRED  EIRTH  DATE  DESCRIPTION"; 

«  (2 20  183. 0  1  €3, 8 3. ETC.)  " 
a  8.60  GET  EBISCATE  PICTURE  'XXXXXX* 

BEAD 

STOFE  MEIRDATE  TC  DESC  1 
CASE  !  (SICT1  )  *  "I" 

STOFE  •  *  TO  KWTCONTL 

a  8,0  SAY  "TYPE  IN  DESIRED  WEIGHT  CONTROL  DESCRIPTION"; 
"  (YiS  CR  NO)" 

3  8.55  GET  BWTCCNTL  PICTURE  'XXX' 

BEAD 

STOFE  HWTCONTL  TC  DESC  1 
CASE  !  (S ICT  1  )  =  "J" 

STOFE  *  •  TO  HPF10NE 

a  8,0  SAY  "TYPE  IN  DESIRED  PPT  ONE  DESCRIPTION"; 

"  (S  ,  1 ,  2,  3,  F ,*)  " 

a  8.50  GET  BPFTCSE  PICTURE  'X' 

BEAD 

STORE  MPFTONE  TO  DESCl 
CASE  !  ( S  LCT  1  )  *  "K" 

STOFE  •  '  TO  RPFTTSO 

i  8,0  SAY  "TYPE  IN  DESIRED  PFT  TWO  DESCRIPTION"; 

*'  (S  ,  1 ,  2, 3 ,  F  ,*)  " 

a  8.50  GET  EPFTTSO  PICTURE  •  X* 

BEAD 

STORE  MPPTTKO  TO  DESCl 
CASE  !  ( S  LCT  1  )  =  "I" 

STOFE  *  '  TO  MSWMQUAL 

3  8.0  SAY  "TYPE  IN  DESIRED  SWIMMING  QUALIFICATION"; 
"DESCRIPTION" 

3  9,0  SAY  "  (SI  .  S2.S3.0  N,**)  " 

Iea517  GET  "SII*CC*L  PICaOHe  ’XX* 

STORE  MSWMQUAL  TC  DESCl 
CASE  !  (SICT1 )  *  "E" 

STORE  1  *  TO  MRIFQUAL 

3  8,0  SAY  "TYPE  IN  DESIRED  RIFLE  QUALIFICATION"; 
"DESCRIPTION" 

3  9,0  SAY  "  (EX,SS,BB,U  N,**>  " 

BE Ifi 1 8  GET  ”RI^CUAL  PICTURE  ’XX' 

STORE  MRIFQUAL  IC  DESCl 
CASE  !  (SICT 1 )  =  "R" 

STORE  '  *  TO  M  PISQUAL 

a  8,0  SAY  "TYPE  IN  DESIREE  PISTOL  QUALIFICATION"; 
"DESCRIPTION" 

3  9,0  SAY  "  (EX.SS.  BM.U  N,**)  " 
a  9,18  GET  MPISQO&L  PICTURE  'XX' 

BEAD 

STOFE  BPISQUAL  TC  DESCl 
ENDCASE 
INDI  E 

IF  COCNT  =  2 
EO  CASE 

CASE  !  (SICT  2 )  =  "A" 

STOFE  '  •  TO  M BANK 2 
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i  8,0  SAT  iPE  IN  DESIRED  RANK  DESCRIPTION; 

2E8'51'GEiEaRAi!2  PICTURE  *XX* 

STORE  KRANK2  TO  EESC2 
C  A  c  E  J  ( 2  LCT  2)  *  " 

a:8  0  SAY  "TYPeS^DESiIsD  PRIMARY  SOS  DESCRIPTION; 
i03e!S*C2!i'SC.i«S2  PICTURE  'XXXX* 

CC  A  f 

STORE  EPRIMCS2  TC  DESC2 
C  ^ eg  I  (SLCT  2)  *  ** C " 

|T8  0  SAY  «TYPECl!iS DESIRED  SECONDARY  MOS  DESCRIETICN; 
^il^GET'ilicl^  PICTURE  'XXXX' 

STORE  PSECMOS2  TC  DESC2 

ei!W£2,.npi‘iS  g£S!HS*co»m  dssceimio*  o; 

2°§^58~GET  *  CCOME  NY2  PICTUFE  'XXXXXX* 

STORE  ECOKPNY2  TC  DESC2 
CASE  1 (SLCT  2)  *  "E"  CT 

IT8  0  SAY  "TYPE  IN  DESIRED  PLATOON  DESCRIPTION  (1ST; 

ala|62CGET*E&KlS  PICT  ORE  ‘XXXXXXXXX* 

STORE  KPLAT2  TO  CESC2 
CASE  USLCT2)  *  "J" 

fe  0  SAY  "TYPE  IN  DESIRED  JOIN  DATE  DESCRIPTION; 

(22tl83.01  83,83  .ETC.)  "  iyyyyyy* 

a  8-6U  £eT  CJNDTE2  PICTURE  'XXXXXX* 

ItOEE  EJNDTE2  TC  DESC2 
CASE  l  (SLCT  2)  =  "G" 

|T8B0  SAY  "TYPE  IN  DESIRED  EAS  DESCRIPTION; 

228^553<5ET8kAS^PIciuBE  'XXXXXX* 

STORE  KEAS2  TO  LESC2 
C£C£  |  |SLCT 2)  s  w  gn 

I*1 8 B 0  SAY  "TYPE^IN^eI  IRED  EIRTH  DATE  DSSCRIPTICN; 

i2^6035ET8MSlR5TE2*tlCTUFE  'XXXXXX* 

STORE  CBIRDTE2  TC  DESC2 
CASE  !  (SLCT  2)  —  "3" 

IT8  0  SAY  "TYPE  IiTdESIRED  HEIGHT  CONTROL  DESCRIPTION 

a^IjSpGET1  BHTCATL2  PICTURE  ‘XXX* 

STORE  RHTCNTL2  TC  DSSC2 
CASE  !(SLCT2j  *  "O’’ 

!T8B0  SAY^TYPEFIH  DESIRED  PET  ONE  DESCRIPTION; 

iSs!So'i£T'I>PFTCSE2  PICTURE  'X* 

STORE  MPPTGNE2  TC  DESC2 
CASE  1  (SLCT  2)  =  ”  K” 
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STGBE  *  •  TO  BP  FTT  WC2 

2  8,0  SAY  "TYPE  IN  DESIRED  PFT  TWO  DESCRIPTION; 

(Sj.1.2,3,?,*)  " 

a  3,50  GET  BPFT1WC2  PICTURE  'X* 

RE  At 

STORE  EPFTTW02  TC  DESC2 
CASE  l  (SLCT  2)  -  "I" 

STORE  1  '  TO  MSWMQAL2 

2  8,0  SAY  "TYPE  IN  DESIRED  SWIMMING  QUALIFICATION; 
DESCRIPTION" 

a  9,0  SAY  "  (SI  .  S2.S3.U  R,**)  " 
a  9,17  GET  BSWBQAL2  PICTURE  'XX' 

READ 

STORE  RSWMQAL2  TC  DESC2 
CASE  !  (S ICT2 )  *  "  E " 

STOFE  *  '  TO  MFIFQAL2 

S  8,0  SAY  "TYPE  IN  DESIRFD  RIFLE  QUALIFICATION; 
DESCRIPTION" 

2  9,0  SAY  "  (E  X  ,  S  S,  B  M,  rJ  N  ,  *  ♦)  " 
a  9,18  GET  MRIFQAL2  PICTURE  'XX‘ 

FE  A  l 

STOFE  BRIFQAL2  TC  DSSC2 
CASE  1  (S1CT2 )  *  "N" 

STOFE  *  *  TO  KFISQAL2 

2  8,0  SAY  "TYPE  IN  DESIRED  PISTOL  QUALIFICATION; 
DESCRIPTION" 

2  9,0  SAY  "  (E  X  ,  £S,  BM,  0  N,  * *)  " 

2  9,18  GET  KPISQAL2  PICTURE  »XX* 

pp  A  p 

STOFE  MPISQAL2  TC  DESC  2 
ENCCASE 
ENDIF 

IP  CCCN1  «  3 
DO  CASE 

CASE  !  (SLCT  3 )  *  "1" 

STORE  ’  •  TO  BFANK3 

2  8,0  SAY  "TYPE  IN  DESIRED  RANK  DESCRIPTION; 

(El, E5, 02, ETC.)  " 
a  8,48  GET  BRANF3  PICTURE  '  XX* 

READ 

STORE  KRANK3  TO  CESC3 
CASE  ! (SLCT  3)  =  "E" 

STORE  •  •  TC  BPRISCS3 

2  8,0  SAY  "TYPE  IN  DESIRED  PRIMARY  MOS  DESCRIPTION; 

iorIi  mi  FTP  ^  n 

a  8,5&  GET  *  CPRI  5CS3  PICTURE  'XXXX' 

BEAt 

STORE  EPRIMQS3  TC  DESC 3 
CASE  !  (SLCT 3)  *  "C" 

STOFE  '  •  TC  ESECBCS3 

2  8,0  SAY  "TYPE  IN  DESIRED  SECONDARY  MOS  DESCRIPTION; 
(0311 ,0331  ,  ETC.)  " 

2  8,60  GST  ESECECS3  PICTURE  'XXXX* 

REAt 

STORE  SSECBCS3  TC  DBS C 3 
CASE  !  (SLCT  3)  =  "C" 

STOFE  •  '  TC  MCOBENY3 

2  8,0  SAY  "TYPE  IN  DESIRED  COMPANY  DESCRIPTION  (A; 
CC.WFNS  CO  ,  HCS  CC)  " 

2  8,58  GET  BCOMPFY3  PICTURE  'XXXXXX' 

REAt 

STORE  ECOMPNY3  TC  DESC  3 
CASE  ’(SLCT  3)  =  "E" 

STOFE  •  ’  TO  MPLAT3 

2  8,0  SAY  "TYPE  IN  DESIRED  PLATOON  DESCRIPTION  (1ST; 
PLAT, 3D  PLAT, ETC)" 

2  8,60  GET  BPLAT3  PICTURE  ’XXXXXXXXX' 

REAt 

STORE  KPLAT3  TC  DESC3 
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CASE  !  (SLCT  3)  =  "I" 

STCEE  '  *  1C  MJNDTE3 

2  8.0  SAY  "TYPE  IN  DESIRED  JOIN  DATE  DESCRIPTION; 

{ 2  2  C 1  63,01  83,83  .ETC.)  " 

2  8  .64  GET  MJND1E3  PICTURE  'XXXXXX' 

BEAD 

STORE  EJNDTE3  TC  DESC3 
CASE  !  (SLCT  3)  =  "G" 

STORE  »  '  TO  EEAS3 

3  8.0  SAY  "TYPE  IN  DESIRED  EAS  DESCRIPTION; 

(22C183, 01  83,83  .ETC.)  " 

3  8.55  GET  BE  AS  3  FICTUFE  'XXXXXX' 

REAL 

STORE  MEAS3  TC  EESC3 
CASE  !  (S1CT  3)  *  "R" 

STORE  •  •  TC  MBIP.ETE3 

2  8.0  SAY  "TYPE  IN  DESIRED  EIRTH  DATE  DESCRIPTION; 
(220183,01  83,83  .ETC.)  " 

3  8,60  GET  HBIRDTE3  PICTURE  'XXXXXX' 

REAt 

STORE  KBIRDIE3  TC  DESC3 
CASE  1  (SLCT  3)  =  "I" 

STORE  •  •  TO  EWTCNT  L3 

3  8.0  SAY  "TYPE  IN  DESIRED  HEIGHT  CONTROL  DESCRIPTION; 
(YES  CR  NO)  " 

2  6,55  GET  EHTCML3  PICTURE  ‘XXX1 
REAt 

STORE  MWTCNTL3  TC  DESC3 
CASE  !  (SLCT3)  =  "J" 

STORE  •  •  TC  MPFTCNE3 

3  8.0  SAY  "TYPE  IN  DESIRED  PFT  ONE  DESCRIPTION; 

( S  i  2  3  F  *)  " 

2  6  .§0  'g£t'  BPFTCKE3  PICTURE  *X' 

REAL 

STORE  £  PFT  ONE  3  TC  DESC3 
CASE  !  (SLCT  3)  =  "K" 

STORE  •  '  TC  MPFTTH03 

3  8.0  SAY  "TYPE  IN  DESIRED  PFT  THO  DESCRIPTION; 

(S.1,2  ,3,  F  ,  +)  " 

3  8.50  GET  KPFT1HC3  PICTURE  'X’ 

REA* 

STORE  CPFTT  H03  TC  DESC3 


CASE  !  (S  LCT  3)  =  "L" 

STORE  «  •  TO  MSHMQAL3 


3  8.0  SAY  "TYPE  IN  'DESIRED  SHIMMING  QUALIFICATION; 
DESCRIPTION" 

a  9,0  SAY  "  (SI  ,S2.S3,U  N,**)  " 
a  9,17  GET  MSHMQAL3  PICTURE  'XX' 

READ 

STORE  MSHMQAL3  TC  DESC 3 
CASE  JJSICT3)  =  " K" 

STORE  '  '  TO  MI.IFQAL3 

2  8,0  SAY  "TYPE  IN  DESIREC  RIFLE  QUALIFICATION; 
DESCRIPTION" 

a  9,0  SAY  "  (E  X  ,  S  S,  MM,  U  N  ,  *  *)  " 
a  9,18  GET  MRIFQALJ  PICTURE  »XX» 

FEAC 

5TOEE  MRIFQAL3  TO  DESC 3 
CASE  !  (SLCT 3)  =  "N" 

STOFE  »  •  TO  HFISQAL3 

a  8,0  SAY  "TYPE  IN  DESIRED  PISTOL  QUALIFICATION; 
LESCRIPTION" 


3  9,0  SAY  "  (EX,  SS.MM.U  N,**)  " 
a  9,18  GET  MPISQAL3  PICTURE  ' 
READ 

STORE  KPISQAL3  TC  DESC  3 
ENCCASE 
IN  Dir 
RETURN 


XX' 


&PPENEIX  6 

STANDARD  COMBAHD  GENERATOR  MODULE  LISTINGS 

1.  S11NC1SC  REPORT  ROUTINE 


*  ROUTINE  NAME 

*  MODULE  NAME: 

*  VERSION:  5.0 

*  AUTHOR:  B.E. 

*  DATE:  6NOV83 

*  VARIABLES  USED:  NONE 

*  VARIABLES  MODIFIED:  NONE 

*  VARIABLES  CREATED:  AASTD 

*  VARIABLES  RELEASED:  AASTD 

*  FILES  CPE  NED/C  LOS  E  E  :  NONE 

*  TEMF  FILES  CREATED:  NONE 

*  USING  SUBROUTINES:  CCMMAN 

*  DESCRIITICN:  GENERATES  TH 

*  RE  FOR  T  SELECTION  ARE  STOR 

*  A ASTDOFT .  CONTROL  IS  THE 

*  S DBEOOTI NE  TO  OBTAIN  THE 

*  DATAEASE.  THIS  RO  LI  IN  E  W 

*  RSSFCNES  WITH  A  "Q". 


3TDRET.PRG 

STANDAFD  REPORT  GENERATOR 
PROIETT 


CPT,  AADONE,  PROCEED 

OPT,  AADONE,  ALL  EXCEPT  A  A? I 


D  DETERMINER 

E  PRIMARY  MENU  FOR  STANDARD 
ES  THE  USER1  S  RESPONSE  IN 
N  PASSED  TO  THE  APPROPRIATE 
NECESSARY  DATA  FROM  THE 
ILL  CONTINUE  UNTIL  THE  USER 


STORE 
[0  MB 
ERASE 

3  2,5 
3  3,5 
LETT 
a  5,5 

6.5 
7*5 

8.5 

9.5 

i5. 
11, 
12, 
13, 
lu, 

15, 

16, 
17, 

19, 

20, 

21 


F  TO  AADONE 
ILE  .NOT.  AADONE 


SAY 
SAY 
ER  " 
SAY 
SAY 
SAY 
SAY 

SAY 
c 


FBIK 


ARY  MENU  FOR  STANDARD  REPORT  SELECTION 
STANDARD  REFORT  SELECTION 
"SELECT  A  REPORT  BY  ENTERING  THE  APPROPRIATE 


U  I  f  u 

ACCEPT 


"A..  , 
"E..  . 
"C..  . 
"  D . .  . 

"  t  •  •  . 
S  A  Y  "  F .  . 

S  AY" G. . 
SAY"H- . 

S  AY"  I. . 

S  A  Y  "  J . . 

S  AY " K.  . 

S  A  Y  "  I . . 

S  AY " M. . 

S  A  Y  "  C  -  • 
SAY" 
SAY" 
"SELECT 


UNIT  FCSTER 
TRAINING  STA 
TRAINING  ROS 
INDIVIDUAL  T 
MARKSMANSHIP 
MARKSMANSHIP 
MOS  SIATUS  R 
MCS  FCSTER  R 
PERSONAL  DAT 
EST  STATUS  F 
EST  ROSTER  R 
SWIM  QUALIFI 
RELP 
QUIT 


TUS  REPORT 
TER  REPORT 
RAINING  RECORD 
STATUS  RE  FORT 
FCSTER  REPORT 
EPORT 
EEC  FT 
A  REPORT 
EEOFT 
EPORT 

CATION  REPORT 


OPT  ION 


"  TO  AASTDOFT 


rn  ricF 

CASE  I<AASTDOPT) 
DC  SLCTUNIT 
DC  UNITROST 
ACCEPT  "PRESS 
CASE  !  (  A  AST  COPT ) 
DC  SLCTUNIT 
CO  TFNGSTAT 
CASE  1  (  A  B  ST  COPT) 
DO  SLCTUNIT 
DO  TRNGECST 

a  22,0 


*  *  a1 


' ENTER’ 

=  '  E' 


KEY  TO  CONTINUE"  TO  PROCEED 


n 
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t 


ACCEET  "ERESS  ‘ENTER '  KEY  TC  CONTINUE"  TO  PROCEED 
CASE  '.(AASIDOPT)  =  •  E* 

ERASE 

DC  V1EWITR 

CASE  I  (AASTDOPT)  =  ‘E‘ 

DO  SLCTUNIT 
DC  BrEKSSTAT 
CASE  1  (AASTDOPT)  =  'E* 

DC  SLCTUNIT 
DO  BKSBOST 

CASE  !  (A  A  ST  DOPT)  =  'G* 

DO  SICTONIT 
DO  HOSSTAT 

a  22,0 

ACCEET  "PRESS  'ENTER1  KEY  TC  CONTINUE"  TO  PROCEED 
CASE  !  (AASTDOPT)  -  'B‘ 

DO  SLCTUNIT 
DO  MOSROST 
3  22. C 

ACCEET  "PRESS  'ENTER'  KEY  TO  CONTINUE"  TO  PROCEED 
CASE  !  (AASTDOPT)  *  'I' 

DO  SLCTUNIT 
DC  PEBSDATA 

a  22,0 

ACCEPT  "ERESS  'ENTER'  KEY  TC  CONTINUE"  TO  PROCEED 
CASE  I  (AASTDOPT)  *  *J' 

DO  SLCTUNIT 
DO  ESTSTAT 

CASE  1  (AASTDOPT)  =  'F* 

DO  SLCTUNIT 
DC  ESTROST 
3  22,0 

ACCEET  "ERESS  'ENTER'  KEY  TC  CONTINUE"  TC  PROCEED 
CASE  l  ( A  AST  DOPT)  *  'L' 

DO  SLCTUNIT 
DC  SWIHQUAL 

CASE  !  iAASTDOPT)  *  'f 
DO  A-.EELE 
ENDCASE 

IE  !  (AASTDOPT)  =  'O' 

STORE  T  TO  A  ADO  N  E 
ENDIf 

ENDDC 

RELEASE  AACCNE, AASTDCPT 
RELEASE  ALL  EXCEPT  All???? 

USE 

RETURN 


B.  SELECT  CHIT  BOOTIES 


*  ROUTINE  NAME:  SLCTCNIT.PRG 

*  MODULE  NAME:  STANDARD  REP  CRT  GENERATOR 

*  VERSION:  5.1 . 0 

*  AOTECR:  R.E.  PRO  IETT 

*  DATE:  6NOV83 

*  V  A  F IAELES  USED:  ONICO.  TWOCO,  THREECO,  FOURCO,  ONEPLT  , 

*  TWCPLT,  THREEPLT.FCUEPLT 

*  VARIABLES  MODIFIED:  NONE 

*  VARIAELES  CREATED:  MONIT,  MPLAT 

*  VARIABLES  RELEASED:  NONE 

*  FILES  CP  ENED/C  LOS  E  L  :  NONE 

*  TEMP  FILES  CREATED:  NONE 

*  USING  FOOTINES:  STIRPT.PRG  (5.0) 

*  DESCRIPTION:  THIS  F COTINE  ERCMPTS  THE  OSER  TO  SELECT 

*  TbE  SIZE  AND  NAME  CF  THE  ON  IT  (I.E.,  BATTALION, COMPANY, 

*  PLATOON)  FOR  THE  REECRT  GENERATION.  THE  USER  RESPONDS 

*  W IT  B  A  LETTER  THAT  CORRESPONDS  TO  A  USER  INSTALLED  CC  OR 

*  PLT  DESIGNATION.  THIS  ROUTINE  MILL  EXECUTE  ONCE  EACH 

*  TIME  CALLED. 

STORE  F  TO  SLCTDCNE 

EESTCBE  FRCM  A : UNIT  M  EM  ADDITIVE 

DO  WHILE  .NOT.  SLCTDCNE 
ERAS  E 

2  6,5  SAY  "SELECT  ONIT 
2  8,5  SAY  "A..  .  " 

2  8.9  SAY  CNECO 
a  10,5  SAY  "B.  .  .  " 
a  10,9  SAY  1HOCO 
a  12,5  SAY  "C.  . 
a  12,9  SAY  THREECO 

2  14,5  SAY  "D.  .  .  " 

3  1^,9  SAY  FCURCC 

a  16,5  SAY  "E.  .  .  BATTALION 
a  17,5  SAY  « 
a  18,5  SAY  " 

ACCEPT  "SELECT  CFTION  ======>  «  TO  MONIT 

IF  !  (HUNIT)  =  '  A'  .OR.  (MONI  T)  =  '  B'  .OH.  !(MONIT)='C'  .OR.; 

!  (M(J  NIT)  *•  D  '  .03.  I  (  ECNIT)  =  '  E* 

STORE  T  TO  SLCTCONE 

END  IF 
END  DC 

STORE  F  TO  SLCTDCNE 

DO  WHILE  -NOT.  SLCTDCNE  .AND.  1  (MUNIT)O'  E ' 

I?  !  (BUN  IT)  =  •  A1  .OR.  !<MUNII)  =  '  B'  .OR.  l(KUNIT)  =  'C'; 
•  CB.  i  (MONIT)  = 

ERASE 

2  10,5  SAY  "SELECT  SUBUNIT  SIZE" 
a  12,5  SAY  "A.  .  .  " 

3  12,9  SAY  ONEPLT 
3  14,5  SAY  "  E.  .  .  " 
a  14,9  SAY  TMOPLT 
a  16,5  SAY  "C.  . .  " 

a  16,9  SAY  T  HR  EE  I  IT 
a  18,5  SAY  "  C.  .  .  " 
a  18,9  SAY  FCURPIT 

a  20,5  SAY  "E - ALL  OF  UNIT 

3  21,5  SAY  " 
a  22.5  SAY  " 

ACCEPT  "SELECT  OETICN  ==  =  ===  =  >  "  TO  MPLAT 

END  I  F 

IF  !  ( B  P  L  AT)  -*  A  1  .OR.  !  (  MPLAT)  =  1  3  '  .OR.  !  (M  PLAT)  =' C'  .OR.; 

!  ( MP  L  AT)  = '  t '  .OR.  !  (  B  PL  AT)  =  '  E  * 

STORE  T  TO  3LCTD0NE 


ESDI  F 
ENDDC 

IF  !  fKONIT)  =  *  E 
STCBE  «Z'  TO 
ENDTF 

BELH  ASE  SLCTDONE 
C  SF 

FETUBN 


MPL  AT 


C.  om  BCSTER  BOOTHS 


*  ROCTINI  NAME:  UNITICST.PRG 

*  MODULE  NAME:  STANDARD  REP  CRT  GENERATOR 

*  VERSION:  5.2.  0 

*  AOTHCR:  P.  E .  FROIETT 

*  DATE:  6NOV83 

*  VARIABLES  USED:  MONIT,  MPIAT,  ONECO.  TWOCO,  THREECO, 

*  FOORCO,  CNEPLT,  TWCPLT,  T  HREcPLTr  FOURPLT 

*  VARIABLES  MODIFIED:  NONE 

*  VARIAELES  CREATED:  NONE 

*  VARIAELES  RELEASED:  MUNIT,  MPIAT 

*  FILES  (OPINED/CLOSEC)  :  A:  PEPS  INDEX  A  :  ALE  HP  EPS 

*  TEMP  FILES  CREATED:  NONE 

*  USING  SOE  ROOT  INE  S :  SIDRPT.PRG 

*  DESCRIIIICN:  THIS  IS  A  CONTROL  ROUTINE  WHICH  CREATES  THE 

*  PERSONNEL  ROSTER  FOR  THE  UNIT  SPECIFIED  BY  THE  USER'S 

*  RESPONSE  TO  THE  SLCTUNIT  MENU  (5.1.0). 

ERASE 

USE  A :  PEPS  INDEX  A:ALFBP2RS 
DO  CASE 

CASE  !  (MUNIT)  =  *£' 

FEEORT  FORM  8: FCSTRPT 
CASE  !  (MONIT)  =  'A'. AND.  !  ( MPLAT)  =  'E* 

REEORT  FORM  B: FCSTRPT  FOB  COMPANY  =  ONSCO 
CASE  I(MUNIT)  *  'A'  .AND.  !  (MPLAT)  =  'A' 

REPORT  FORM  B: FCSTRPT  FOB  COMPANY  =  ONECO  .AND.; 
PLATQCN  =  ONEPLT 

CASE  !  (M0NIT1  =  'A*  .AND.  !  (MPLAT)  =  'B' 

REPORT  FORM  B: FCSTRPT  FOR  COMPANY  =  ONECO  .AND.; 
ELATCCN  =  TWOPIT 

CASE  !  (MONIT)  -  'i'  .AND.  !  (MPLAT)  =  'C' 

REPORT  FORM  B : FCSTRPT  FOR  COMPANY  =  ONECO  .AND.; 
ELATCCN  =  THREEELT 

CASE  !  (MUNIT)  *  'I*  .AND.  !  (MPLAT)  =  'D* 

REEORT  FORM  B: ECSTRPT  FOB  COMPANY  =  ONECO  .AND.; 
ELATCCN  =  FOORIIT 

CASE  !  (MONIT)  =  'E'  .AND.  !  (MPLAT)  =  'E* 

REPORT  FORM  B: FCSTRPT  FOR  COMPANY  =  TWOCO 
CASE  l  (MONIT)  =  '  E '  .AND.  !  (MPLAT)  =  'A' 

REEORT  FORM  B: FCSTRPT  FOB  COMPANY  =  TWOCO  .AND.; 
ELATCCN  =  CNEFIT 

CASE  !  (MUNIT)  =  'E'  .AND.  !  (MPLAT)  =  *B' 

REEORT  PORN  B: FCSTRPT  FOR  COMPANY  =  TWOCO  .AND.; 
ELATCCN  =  TWOPIT 

CASE  !  (MCNIT)  =  *E'  .AND.  !  (MELAT)  =  -C' 

FEEORT  POSH  B ; FCSTRPT  FOR  COMPANY  *  TWOCO  .AND.; 
ELATCCN  =  THREEELT 

CASE  !  (MCNIT1  =  .AND.  !  (MPLAT)  *  'D' 

REEORT  PORN  B: ECSTRPT  FOR  COMPANY  =  TWOCO  .AND.; 
ELATCCN  =  EOURPIT 

CASE  '.(MONIT)  =  'C'  .AND.  ’ (HFLAT)  =  *E< 

REPORT  FORK  B: ECSTRPT  FOR  COMPANY  =  THREECO 
CASE  J  (MONIT)  -  'C*  .AND.  !  (MPLAT)  =  'A' 

REPORT  FORM  B: FCSTRPT  FCR  COMPANY  =  THREECO  .AND.; 
ELATCCN  =  CNEPIT 

CASE  !  (MONIT)  =  »C’  .AND.  !  (MPLAT)  =  'B' 

REPORT  FORM  B: FCSTRPT  FCR  COMPANY  =  THREECO  .AMD.; 
ELATCCN  =  I  *  OP  IT 

CASE  !  (MONIT)  =  'C'  .AND.  1  (MPLAT)  =  'C* 

REPORT  FORM  B : FCSTRFT  FCR  COMPANY  =  THREECO  .AND.; 
ELATCCN  =  THREEELT 

CASE  !  (MONIT)  =  'C'  .AND.  '.(MPLAT)  -  ?D' 

FEPCFT  FORM  B: FCSTRPT  FCR  COMPANY  =  THREECO  .AND.; 
ELATCCN  =  POUREIT 

CASE  !  (MONIT)  =  '  I '  .AND.  !  (MPLAT)  -  'E' 

REPORT  FORM  B : FCSTRPT  FCR  COMPANY  =  rOORCO 
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CASE  !  (HUNIT)  =  'C  .AND.  !  ( M  F  L  AT)  =  '  A  ’ 

REPORT  FORM  B : FCSTRPT  FCE  COMPANY  =  FOURCO  .AND. 
E1ATCCN  =  CNEP11 

CASE  !  (MUNI T)  =  1  E'  .AND.  !  (MFLAT)  =  'S' 

FEFGRT  FORM  B: FCSTRPT  FOR  COMPANY  =  FOURCO  .AND, 
ELA1CCN  =  TWOPIT 

CASE  !  (SUNIT)  =  »  D '  .AND.  !  (HPLAT)  =  'C' 

REPORT  FORM  B : FCSTRPT  FOR  COMPANY  =  FOURCO  .AND. 
FI  AT  C  D  N  =  THREEELT 

CASE  !  (M  UNIT)  «  '  C'  .AND.  !  (  M  P  L  A  T )  =  ‘D‘ 

EEEOET  FORM  B : FOSTRPT  FCE  COMPANY  =  FOURCO  .AND. 
ELATCCN  *  FOUREIT 
ENDCASE 
USE 

RELEASE  CCNIT/  MFLAT 
FETUFK 


D.  TRAINING  STATISTICS  ROUTINE 


♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

4 

* 

4 

* 

4 

* 

4 

4 

4 

4 

4 

* 

4 

* 

4 

* 


V  AF 1  ABIES  USED 
ZZCCOC,  ZZAHIS, 
ZZA3NT,  ZZBINT, 
ZZEAID.  Z2FAID 


ROUTINE  NAME:  TRNGSTAT.PRG 

MOD  DIE  RAKE:  STANDARD  REP  CRT  GENERATOR 

VERSION:  5.3.0 

ADTECH:  R.  E.  PRUII1I 

DATE:  22DEC83 

HUNIT,  MPLAT,  ZZACOC,  ZZTOTAL,  ZZECOC, 
ZZEHIS,  Z  ZCH IS ,  ZZACOD,  ZZBCOD,  ZZCCOC, 
ZZCINT ,  ZZAAID,  ZZBAID,  ZZCAID,  ZZEAID, 
<i6cnu,  l  li  axuL  ZZGAID ,  ZZHAID,  ZZIAID,  ZZJAID,  ZZKAIC, 
PROCEED,  ZZAU  N I,  ZZEONI,  ZZCONI,  ZZANBC,  ZZBNBC,  ZZCNBC, 
ZZDRBC ,  ZZENBC ,  ZZENBC,  ZZAMFS,  ZZBMKS,  ZZCMKS,  ZZCMKS, 
ZZEMKS,  ZZFMKS ,  ZZA1AC,  ZZBTAC,  ZZCTAC,  ZZDTAC,  ZZETAC, 
ZZPFT1.  ZZPFT2  ,  ZZSHIM,  ZZRFL,  ZZPST,  ZZNAPST,  ZZNARFL 
VARIABLES  MODIFIED:  NO  GLCEAI  VARIABLES  MODIFIED 
V  API  ABIES  CREATED:  NONE 
VARIABIES  RELEASED:  ZZ ?????? 

FILES  (OF  ENED/CLOS  I C):  EST  ,  PERS,  QUAL  (ALL  FILES  CLOSED) 
TEHE  FILES  CREATED:  TEMP, 

USING  SOB  ROUTINES:  S1DRPT . PRG 

DESCRIPTION:  FOR  TEE  SELECTED  UNIT,  THIS  ROUTINE 
CALCULATES  THE  TOTAL  NUMBER  CF  TRAINING  ELEMENTS 
CCHEIETED  FOR  EACH  TRAINING  CATEGORY.  FOR  EXAMPLE,  THE 
TRAINING  CATEGORY  "HISTOEY"  CONSIST  OF  THREE  TRAINING 
ELEMENTS!  A,  B ,  C)  .  A  PERCENTAGE  COMPLETED  FIGURE  IS 
CALCULATED  FOR  EACH  TRAINING  ELEMENT  BY  DIVIDING  THE 
TOTAL  TRAINING  ELE CENTS  CCMELETED  (  EX.  ZZAHIS,  ZZEHIS, 
ZZCBIS)  BY  THE  TOTAL  NUMBER  OP  PERSONNEL  IN  THt 
UNIT  (ZZTOTAL)  .  BOTH  THE  AESOLUTE  TOTALS  FOR  EACH  ELEMENT 
AN C  TEE  PERCENTAGE  COMPLETED  FIGURES  ARE  SHOWN. 


ERASE 

3  12.35  SAY  "WORKING" 

DO  CASE 

CASE  l(MONIT)  *  '  E* 

USE  B  : EST 
CO  CNTTRNG 

CASE  IJMUNIT)  =  ’A1. AND.  !  (SPLAT)  =  • 

SELECT  PRIMARY 
USE  A:PERS 
SELECT  SECONDARY 
DSE  E  : EST 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P.  COMPANY  =ONECO  .AND.  F.SSN  =  S.SSN) 
E3ELCS  COC, HIS  , COD, INI, AID. UNI, ; 

PFT1CLSS, PFT2CISS,NBC ,MKS,TAC 
DSE  TEMP 
DO  CNTTRNG 
DELETE  FILE  TESE 

CASE  J(MUNIT)  =  *  A*  .AND.  !  (MPLAT)  =  'A' 

SEIECT  PRIMARY 
USE  A  :PERS 
SELECT  SECCND ARY 
USE  E  :  £5 T 
SEIECT  PRIMABY 

JCIN  TO  TEMP  FCF  (P. COMPANY  =ONECO  .AND.  P. PLATOON  =; 
CNEPLT  .AND.  P.SSN=S.SSN)  FIELDS; 

COC -HIS,  COC,  INI, AID, UNI,  PFI1CLSS,  ; 

PPT2CLSS , NBC ,MKS,TAC 
CSE  TEMP 
CO  CNTTRNG 
DEIETE  FILE  TEPE 

CASE  !  (M  UNIT)  *  *  A '  .AND.  ’(MPLAT)  =  'B* 

SELECT  PRIMARY 
USE  A:PERS 
SEIECT  SECONDARY 
USI  E  :  EST 


9. 


1 1  5 


* 


I 

,N 

I 

I 

I 


■ 


SELECT  PRIMARY 

JOIN  TO  TEMP  PCF  (P. COMPANY  =ONSCO  .AND.  P.  PLATOON 
TliCPLT  .AND.  P.SSN=S.SSNi  FIELDS; 

COC  ,  H  IS,  C  O  D,  INT,AID,'JNI,FFT1CLSS,  ; 

FF12CLSS  ,  NBC,MFS,TAC 
CSE  TEMP 
CO  CNTTRNG 
DE1E1E  FILE  TEMP 

CASE  !  (MUNIT)  *  *  £•  .AND.  !  (MPLAT)  =  'C* 

SELECT  PRIMARY 
OSE  AjPERS 
SELECT  SECCNDAEY 
0  S I  E  :  ES  T 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P.  COMPANY  =ONECO  .AND.  P. PLATOON 
THBEEPLT  .AND.  F.SSN=S.SSN)  FIELDS; 

COC.  HIS,  COD,  INT,AID,UNI,PFT1CLSS,  : 

PFT2CLSS  ,  NBC  ,M  PS,TAC 
CSE  TEMP 
DO  CNTTRNG 
DELETE  PILE  TEMP 

CASE  !  (MUNIT)  *  '1'  .AND.  !  (MPLAT)  =  'D» 

SELECT  PRIMARY 
OSE  ArPERS 
SELECT  SECCNDAFY 
OSE  B : EST 
SELECT  PRIMARY 

Jr!N  TO  TEMP  PCF  (P. COMPANY  =ONECO  .AND.  P.  PLATOON 
FOORPLT  .AND.  E.SSN=S.SSN)  FIELDS; 

COC,  BIS,  COC,  INT,AID,U  NI,  PPT1CLSS,  ; 

PTI2CLSS  ,  NBC  ,NKS,TAC 
r 3E  TEMP 
UO  CNTTRNG 
DELETE  PILE  TE EE 

CASE  !  (MUNIT)  =  *E»  .AND.  !  (MPLAT)  =  •£• 

SELECT  PRIMARY 
OSE  A  ;PERS 
SELECT  SECCNDAEY 
OSE  E  :EST 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P.CCMFANY  =TWOCO  .AND.; 

P .  SSN=S.  SS  fi)  FIELDS  CCC,  BIS. COD.  INT.  ; 

Alt, ONI, PPT1CLSS,PFT2CLSS,NBC,MKS,TAC 
CSE  TEMP 
CO  CNTTRNG 
DELETE  PILE  TEME 

CASE  !  (MONIT)  *  'E*  .AND.  !  (MPLAT)  =  'A* 

SELECT  PRIMARY 
OSE  A : PERS 
SELECT  SECCNDAFY 
OSE  E  :EST 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P.  COMPANY  =TWOCO  .AND.  P.  PLATOON 
CNEFLT  .AND.  p . SSN=r .  SS  N )  FIELDS  COC , hi S , CO D , ; 

INT, AID.  UN  I,  PFT  1CLSS,  PFT  zCLSS  ,  N  BC  ,  HKS  ,T  AC 
CSE  TEMP 
EC  CNTTRNG 
DELETE  FILE  TEKE 

CASE  !  (MUNIT)  =  '  E •  .AND.  !  (MPLAT)  =  '3' 

SELECT  PRIMARY 
OSE  A  : P2 R S 
SELECT  SECCNDAFY 
USE  E  ;  ES  T 
SELECT  PRIMARY 

JOIN  TO  TEMP  FOR  (?.  COMPANY  =?WGCO  .AND.  ? .  PLATOON 
T  «  C  F  L  T  .AND.  P.SSN=S.SSN)  FIELDS  COC , HI S , CO D , ; 

INT  ,  AID,  UN  I,  PFT  1CLS3,  PFT^CLSS  ,  N3C,MK5,TAC 
CSE  TEMP 
CO  CNTTRNG 
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,  AND  .  !  (MPLAT)  =  *C' 


?.  (P. COMPANY  -  TW  OCO 
c  .  5  S  N  =  * 


.  AND  .  !  (MPLAT)  =  '  D1 


DEIETE  FILE  TEML 
CASE  !  ( H  UNIT)  *  ’  E  ' 

SELECT  PRIMARY 
USE  A: PE PS 
SELECT  SECCNDAFY 
USEE  :S5T 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCP  , . . .  __ 

THREEPLT  .AND.  I.3SN=S.SSN)  FIELDS 
INI ,  AID,  UN  I,  PFT  1CLSS,  P  FT  2C  LSS  ,  N  3C  , 
CSE  TEMP 
CO  CNTTRNG 
DELETE  FILE  TE  EE 
CASE  !  ( M UNIT)  =  «  E* 

SELECT  PRIMARY 
USE  A  :?ERS 
SELECT  SECOND  A  FY 
USE  E  :  EST 
SELECT  PRIMARY 
JOIN  TO  TEMP  FCP 
FOUBPLT  .AND.  E.S~i. — j.o ~ 

I  NT,  AID,  UN  1,  PPT  1CLSS,  PFT  2CLSS  ,  NBC  , 
CSE  TEMP 
CO  CNTTRNG 
DELETE  FILE  TEME 
CASE  !  ( M UNIT)  =  *C* 

SEIECT  PRIMARY 
USE  A  : PE RS 
SELECT  SECCNDAFY 
USE  E  :  ES  T 
SELECT  PRIMARY 

JCIN  TO  TZM?  FCF  _ _ ....  * _ .  . 

?.SSN=S.  SSN)  FIELDS  C CC , HI S . COD  ,  IN 
A 1 1 ,  UN  I, ?  FT 1  CL  S  S , ?  ?72  CLs  S , NaC , J  K5 , 

[  c  r  T  -!• 

C0“CNTTRNG 


•  AND.  P . P  L  ATCC ’ 
COO. HIS , COD, ; 
MKS/TAC 


.AND.  P. PLATOON 
COC  ,  H  IS  ,  COD,  ; 
MKS,TAC 


(?. COMPANY  =  T  W  OC  0 
:S N=S  .SSN)  FIELDS 

“  T  CC  STT  QC  SR." 


AND  .  !  (MPLAT)  = 


(P.  COMPANY  «  1.4  SC  ECO  .AND.  ; 


tic 


,  AND 


(MPLAT)  = 


(?. COMPANY  = THREE 
SSN=S.SSN[  FIELDS 
’  -FT2CLSS 


CO  .AND.  ?. PLATOON 
COC, HI^, ; 

, N  BC  ,  MKS  ,  T  AC 


DEIETE  FILE  TEME 
CASE  !  j  M UNIT)  =  'C' 

SELtCT  PRIMARY 
USE  A  : PEPS 
SELECT  SECCNDAFY 
USE  E  :  ES  T 
SELECT  PRIMARY 
JOIN  10  TEMP  FCP 

=  CNEPLT  .  AND.  E. _ _ 

COC,  I  NT,  AID,  UN  I,  EFT  K  LSS, 

ISE  TEMP 
CC  CNTTRNG 

-T—  ~  t  *7  fn  v 

i-  i-  —  .  *-  t  ±  A*  —  .  *j  i.  £ 

CASE  1  (M  UNIT)  =  «C'  .AND 
SELECT  PRIMARY 
USE  A  :  PERS 
SELECT  SECCNDAFY 
USE  B  :  ES  T 
SELECT  PRIMARY 

JCIN  TO  TEMP  FOR  (P. COMPANY  =TKRSEC0  .AND.  ?. PLATOON 
=  TWCPLT  .AND.  E.SSN  =  S.SSN)  FIELDS 
INI ,  AID,  UN  I,  PFT  ICLSS.  P ft  7C RR  .  N ar  . : 


(MPLAT)  =  'B 


i  COC, HIS, CCD,; 
.  MKS,T AC 


CSE  TEMP 
DO  CNTTRNG 
DEIETE  FILE  TEMP 

CASE  !  (M UNITY  =  'C*  .AND.  !  (MPLAT)  =  'O' 

SELECT  PRIMARY 
USE  A  :PERS 
SELECT  SECCNDAFY 
USE  E  :  ES T 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P. COMPANY  =TH?.SECO  .AND.  P. PLATOON 
=  THREEPLT  .AND.  F.SSN  =  S.5SN)  FIELDS  CO  C ,  HI  S  ,  CC  D ,  ; 
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1ST,  AID,  ONI,  PF1 1CLSS,  P  FT  2CLSS  ,  N  3C  ,  MK  S  ,  T  AC 
USE  TEMP 
CO  CNTTRNG 
DEIETE  FILE  TEtE 

CASE  I(MUNIT)  =  'C*  -AND.  !  (MPLA  T)  =  'D' 

SELECT  PRIMARY 
USE  A : PERS 
SELECT  SECCNDAFY 
USE  E  : ES T 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCE  {?. COMPANY  =  THREECO  .AND.  P. PLATOON; 

*  FOORPLT  .AND.  P.SSN*S.SSN)  FIELDS  COC , HIS , C OC , ; 
INT,AID,ONI,PFTlCLSS,PFT2CLSS,NSCfMKS,TAC 

CSE  TEMP 
CO  CNTTRNG 
DEIETE  FILE  TEMP 

CASE  ! (M  UNIT)  =  «C'  .AND.  !  (MPLAT)  =  'E' 

SEIECT  PRIMARY 
USE  A : PERS 
SEIECT  SECCNDAFY 
USI  B;EST 
SEIECT  PRIMARY 

JC  IN  TO  TEMP  FC?  (P. COMPANY  =FOURCO  .AND.; 

E  .  SSN-S.  SS  N)  FIELDS  C CC , HI S , COD , I NT, ; 

AIL, UNI. ?FT1CLSS,PFT2CLSS,NBC,MKS,TAC 
CSE  TEMP 
CO  CNTTRNG 
DELETE  FILE  TEME 

CASE  '(MUNIT)  =  •£•  .AND.  !  (MPi  A  T)  =  »A* 

SEIECT  PRIMARY 
USE  A : PERS 
SELECT  SECCNDAFY 
U  S  I  E  :  ES  T 
SELECT  PRIMARY 

JOIN  TO  TEMP  FOR  (P. COMPANY  =FOURCO  .AND.  P. PLATOON; 

*  CNEELT  .AND.  P.SSN=S.SSN)  FIELDS  COC,  HIS  ,  CCD, ; 

INT  ,  A  ID,  UN  I,  PFT  1CLSS,  P?T2CLSS,N3C,MKS,TAC 

LSE  TEMP 
DC  CNTTRNG 
DELETE  FILE  TEMP 

CASE  !  (MUNIT)  =  'E*  .AND.  !  (MPLAT)  =  'B* 

SELECT  PRIMARY 
USI  A:PERS 
SELECT  SECONDARY 
USE  B  :  EST 
SELECT  PRIMARY 

JOIN  TO  TEMP  FOR  (P. COMPANY  =FOURCO  .AND.  P. PLATOON; 

=  TWCPLT  .AND.  f .  SS  N=  S  .  S  S  N)  FIELDS  COC,  HIS  ,  CCD,  INT,  ; 

AIE,UNI,PFT1CLSS,?FT2CLSS,N9C ,HKS.TAC 

CSE  TEMP 

CO  CNTTRNG 

DELETE  FILE  TEMP 

CASE  !  (MUNIT)  =  •  E*  .AND.  !  (MPLAT)  =  »C' 

SELECT  PRIMARY 
USE  A: PERS 
SEIECT  SECCNDAFY 
USI  5:  EST 
SELECT  PRIMARY 

JOIN  TO  TEMP  FOR  (“.COMPANY  =FOUECO  .AND.  P. PLATOON; 

*  THREEPLT  .AND.  P.SSN  =  S.SSN)  FIELDS; 

COC,  BIS,  COD,  IN  T,  AID,  UNI,  PFT  1C  LSS,  ; 

PFT2CLSS  ,  NBC  ,M  FS,TAC 

CSE  TEMP 
CO  CNTTRNG 
DELETE  FILE  TEMP 

CASE  !  (MUNIT)”  =  .AND.  !  (MPLAT)  =  'D' 

SELECT  PRIMARY 
USE  A  : PEPS 
SEIECT  SECCNDAFY 


\ 


IIS 


I; 


&  V*u 


(ZZBH  IS/Z2TCT  AL)  *100  USING  *999’ 
"PERCENT  COMPLETED  E..." 


(let  p.CCTl 

SELECT  PRIMARY 

JOIN  TO  TEMP  FOR  (P. COMPANY  =FOURCO  .AND.  P. EL  A  ICON 
=  FODFPLT  .AND.  E.SSN  =  S.SSN)  FI2LDS; 

CCC »  HIS,  COD,INl,AID,UNI,PFT1CLSS,  ; 

PFT2C1SS  ,  NBC  ,MFS,TAC 
CSE  TEMP 
CO  CNTTRNG 
DELETE  FILE  TE  EE 
ENDCASE 
ERASE 

S  0,25  SAY  "TRAINING  STATUS  REPORT" 

a  2,C  SAY  "CODE  CF  CONDUCT..." 

a  2,25  SAY  (ZZ  ACOC/ZZIOTAL)  *  100  USING  *999* 

3  2 , 3  C  SAY  ’'PERCENT  COMPLEX  EC  A..." 

3  2,52  SAY  ZZACOC  USING  '999' 
a  3,25  SAY  (ZZBCOC/Z2TCTAL)*1Q0  USING  ’999’ 
a  3,3C  SAY  ''PERCENT  COMPLETED  B..." 

3  3,52  SAY  ZZBCOC  USING  '  99  9  ' 
a  4,25  SAY  (ZZCCOC/Z2TGTAL)  *100  USING  '999' 

3  4,30  SAY  "PERCENT  COMPLETED  C _ " 

3  4,52  SAY  2  ZCC  OC  USIRG  '99  9* 

3  6,0  SAY  "KARINE  COFPS  HISTORY..." 

3  6,25  SAY  (ZZAHIS/Z2TOTAL)  *100  USING  '999' 
a  6 , 3  C  SAY  ''PERCENT  COMPLETED  A..." 

3  6,52  SAY  ZZAHIS  USING  '999' 
a  7,25  SAY  (ZZB  H  IS/Z  2TCT  ALJ  *100  USING  '999' 

3  7,30  SAY  ''PERCENT  COMPLETED  E..." 

3  7,52  SAY  ZZBHIS  USING  '999* 

4  8,25  SAY  (ZZCHIS/Z2TOTAL)  *100  USING  *999' 

3  8,30  SAY  ''PERCENT  COMPLETED  C.  .  ." 

a  8,52  SAY  ZZCHIS  USING  '999* 

3  10,0  SAY  "CLOSE  OREER  DRILL..." 
a  10,25  SAY  (ZZACOD/ZZTOTAL)  *100  USING  '  999' 
a  10,30  SAY  ''PERCENT  COMPLETED  A..." 
a  10,52  SAY  ZZACCD  USING  *999* 

3  11,25  SAY  {ZZBCOD/2ZTOTAL  )*1  00  USING  '  999* 

3  11,20  SAY  ''PERCENT  COMPLETED  B..." 
a  11,52  SAY  ZZBCCD  USING  '999' 

3  12,15  SAY  (ZZCCOD/ZZTOTAL)  *100  USING  '  999' 

3  12,30  SAY  ''PERCENT  COMPLETED  C..." 
a  12,52  SAY  ZZCCOD  USING  '999' 

3  14, C  SAY  "INTERIOR  GUARD..." 
a  14,25  SAY  (Z  Z  A  IN  T/ZZTOTAL  )  *  1  CO  USING  '999' 

3  14,30  SAY  ''PERCENT  CCMPLElFC  A..." 
a  14,52  SAY  ZZAINT  USING  *9  99' 
a  15,25  SAY  (ZZ  BIN  T/ZZTOTAL)  *  1  CO  USING  '  999' 
a  15,30  SAY  ''PERCENT  COMPLETED  E..." 

3  15,52  SAY  ZZSINT  USING  '9S9' 

3  16,25  SAY  (ZZCINT/22TOTAL) *100  USING  '999' 

3  16,30  SAY  ''PERCENT  COMPLETED  C...» 

3  16,52  SAY  ZZCINT  USING  '9  99* 

2  Ifl  T  cl  y  nyTS<;T  ITT  t» 

3  18,'20"SAY  (ZZ A AID/2ZTOTAL)  *100  USING  *  999' 

3  18,24  SAY  ’'PERCENT  COMPLETED  A..." 

a  13,46  SAY  ZZ  A  A  ID  USING  '  9  99* 

3  13,50  SAY  (ZZ3AID/ZZTGTAL)  *100  USING  *  999’ 

3  18,54  SAY  ''PERCENT  COMPLETED  3..." 
a  18,76  SAY  ZZ  3  A  ID  USING  '  9  99' 

3  19,20  SAY  (ZZC  AID/2ZTOTAL)  *100  USING  '  999  ' 

3  19,24  SAY  ''PERCENT  COMPLETED  C..." 
a  19,46  SAY  IZCAID  USING  '9  99  * 

2  19,50  SAY  <ZZDAID/22TOTAL)*lOO  USING  »999' 
a  19,54  SAY  ''PERCENT  CCMELE1ED  D..." 

2  19,76  SAY  ZZ D AID  USING  '9  99' 

a  20,20  SAY  (ZZEAID/Z2TOTAL) *100  USING  '999' 

3  2  0,24  SAY  ''PERCENT  COMPLETED  E..." 

£  20,46  SAY  ZZ  E  A  ID  USING  '9  99* 

a  20,50  SAY  (Z  ZF  AID/ ZZTOTAI.)  *100  USING  '  999' 


a  12 
a  14 
a  14 
a  14 
a  14 
a  is 
a  15 

3  15 
a  16 
a  16 
a  16 
a  is 
a  is 
a  18 
a  18 
a  i  a 
a  ia 
a  18 
a  19 
a  19 
a  1 9 
a  19 

4  19 

a  i  9 
a  20 
a  20 
a  20 
a  20 


999' 


999  * 


999' 


999' 


99  9’ 


999  ' 


999' 


•  999' 


a  20,54  SAY  "PERCENT  COMPLETED  F..." 

3  20,16  SAY  ZZFAID  USING  *  9  99' 

3  21,20  SAY  (ZZGAID/ZZTQTAL)  *100  USING 
3  21  ,  24  SAY  ''PERCENT  COMPLETED  G..." 

3  21,46  SAY  ZZGAID  USING  '9  99* 

2  21,50  SAY  (ZZHAID/2ZT0TAL1  *100  USING  '  999* 
a  21,54  SAY  "PERCENT  COMPLETED  H..." 

3  21  ,76  SAY  ZZH AID  USING  '9  99* 

3  22,20  SAY  (Z  Z I  AID/2  ZTQTAL ) *  1 00  USING  *999* 

3  22,24  SAY  "PERCE  NT  COMPLETED  I..." 

3  22,46  SAY  ZZIAID  USING  '9  99* 

3  22,50  SAY  (ZZJ AID/ZZTOTAL)*100  USING  *999* 

3  22,54  SAY  ''PERCENT  COMPLETED  J..." 
a  22,76  SAY  ZZJAID  USING  '9S9' 

3  23,20  SAY  (ZZK  AI D/2  2T0TA  LI*  1  00  USING  ‘  999* 

3  23,24  SAY  ''PERCENT  COMPLETED  K .  . .  " 
a  23,46  SAY  ZZKAID  USING  ‘9  99' 

ACCEPT  "PRESS  ‘ENTER*  TO  CONTINUE"  TO  PROCEED 
IRAS  E 

3  0,25  SAY  "TRAINING  STATUS  REEOET" 

‘  0  SAY  "  EQUIP  MENT/ONIFORMS. 


a  2 
a  2 


a 

a 

a 


SAY  " EQUIP HENT/UNIFOR MS  ... " 

5  SAY  (2Z A U NI/ZzTOT AL)  *100  USING  '999' 
30  SAY  '^PERCENT  COMPLETED  A..." 

52  SAY  ZZAUNI  USING  '999' 

25  SAY  (ZZ  BUNI/ZZTOTAL)  *100  USING  '999' 
30  SAY  '‘PERCENT  COMPLETED  E- . 

52  SAY  2Z8UNI  USING  '99  9* 

25  SAY  (ZZ CU NI/Z Z TOTAL)  *10  0  USING  '  999' 
3  C  £  AY  ''PERCENT  COMPLETED  C..." 

52  SAY  ZZCUNI  USING  *999' 

C  SAY 


a  2 
a  2 
a  3 
a  3 

a  3 

a  a 
a  4 
a  4 

a  6,  C  SAY  "NBC. 

3  6,25  SAY  (2ZANEC/ZZI0TAL)  *100  USING  ‘  999  ‘ 
a  6,30  SAY  •'PERCENT  COMPLETED  A..." 

5  6,52  SAY  ZZANBC  USING  '99  9' 
a  7,25  SAY  (ZZ BN  EC/Z  ZTOTAL)  *  1 0 0  USING  '  999  ' 
a  7 , 3  C  SAY  ''PERCENT  COMPLETED  E..." 

3  7 

a  8 
a  8 


a  9, 
a  io 
a  io 
a  io 

a 
a 

a  1 1 
a  13 
a  13 
a  13 
a 
a 
a 
a 
a 
a 
a 

a 

a 

a 

3 

a 
a 
a 
a 
a 
a 


52  SAY  ZZBNBC  USING  '  99  5* 

25  SAY  (ZZCNBC/ZZTCTAL)  *100  USING  '  999' 
3 C  SAY  ''PERCENT  COMPLETED  C..." 

52  SAY  ZZCNBC  USING  '999' 

25  SAY  (ZZDNBC/Z2TCTAL)  *100  USING  '  999  ' 
''PERCENT  COMPLETED  D..." 


30  SAY 

5 2  SAY  ZZDNBC  USING  '99  9* 

25  SAY  (ZZ  ENBC/Z2TOTAL  )  *  1  00  USING  *999' 
30  SAY  "PERCENT  CCMFLETED  E..." 

52  SAY  ZZENEC  USING  '999' 

1  1 ; 25  SAY  (Z  Z  F  NBC/Z  ZTOTAL )* 100  USING  '  999* 
11.30  SAY  ''PERCENT  CCMFLETED  F..." 

52  SAY  ZZFNBC  USING  '  999' 

r  CSV  "  M&RKc1ANcfJTP  •' 

25  ~S A Y  (ZZ  AMks/2ZT0TAL)  *1  00  USING  '999* 
30  SAY  ''PERCENT  CCMFLETED  A..." 

52  SAY  ZZAMFS  USING  '  9  99  * 

25  SAY  (ZZBMKS/ZZTOTAL) *100  USING  *999' 
30  SAY  ''PERCENT  CCMFLETED  E.  . .  " 

52  SAY  ZZ  BM  KS  USING  '  9  99' 

25  SAY  (ZZCMKS/2ZTOTAL)  *100  USING 
30  SAY  ''PERCENT  COMPLETED  C..." 

52  SAY  ZZCMKS  USING  '  9  99' 


13 

14 
14 

14 

1  5 

15 

15 
1  6 

16 
16 
1  7 
17 

17 

18 
18 
18 
20 


999' 


<5 

30 

c  2 


SAY  (ZZDMKS/2ZT0TALJ  *100  USING 
SAY  ''PERCENT  COMPLETED  D..." 
SAY  ZZDMKS  USING  '  9  99' 

25  SAY  (ZZEMKS/ZZTOTAL[*100  USING 
30  SAY  ''PERCENT  COMPLETED  E..." 

52  SAY  ZZZMFS  USING  '9  99  * 

25  SAY  (ZZFMKS/ZZTOTAL)  *1  CO  USING 
30  SAY  ''PERCENT  COMPLETED  F..." 

52  SAY  ZZFMfS  USING  '999' 

0 


'  999' 


•999' 


999 


120 


ACCEF1  "FREES  •ESTER'  TO  CONTINUE"  TO  PROCEED 
ERAS  E 

2  0,25  SAY  "TRAINING  STATUS  REPORT" 

0  SAY  "INDIVID  TAC  MEASURES..." 

25  SAY  (ZZAT  AC/Z2T0T  AL)  *100  USING  '  999* 
"PERCENT  COMPLETED  A..." 


2 
2 
2 
2 
3 
3 

3 

4 
4 

3  4 


(ZZBTAC/Z2TOTAL)  *100  USING 
30  SAY  "PERCENT  COMPLETED  £..." 

52  SAY  ZZBTAC  USING  '999* 
a  4,15  SAY  (ZZCTAC/Z2TOTAL)  +  1C0  USING 
3  4,30  SAY  ''PERCENT  COMPLETED  C _ " 


a 
a 
a 
a 
a 
a 
a 
a 
a  8 


30  SAY 


52  SAY  2ZATAC  USING  '999' 
25  SAY 


'  999  ' 


999  1 


100  USING  *999' 

ED  D.  ..» 

52  SAY  ZZDTAC  USING  '999' 

6,25  SAY  (ZZETAC/Z2TCT  AL1+100  USING  *  999* 

6 , 3C  SAY  "PERCENT  CCMPLET  ED  £..." 

6,52  SAY  2ZETAC  USING  '99  9' 

8,0  SAY  "FFT  1. 

8,24  SAY  ((ZZTQTAI-2ZPFT1)  /ZZTCTAL)  +100  USING  '999' 
31  SAY  "PERCENT  COMPLETED  PFT  ONE..." 

999* 


a  8,62  SAY  (ZZTOTAL  -  ZZPFT 1)  USING  • 

3  10  C  SAY  ' PF  T  2  . .  .  " 

a  1o'24~SAY  ((ZZTOTAL-ZZPFT  2) /ZZTOTAL)  +  1  00  USING  '999' 

3  10,31  SAY  ''PERCENT  COMPLETED  PFT  TWO..." 
a  10,62  SAY  (Z  ZTOT  AL-ZZP  FT2 )  USING  '999' 

FESTOFE  FBCC  ZZTEMP 
ro  C  A 

CASE  1 (MUNIT)  *  »  E' 

CSE  E:QUAL 
DC  CNTQUAL 

CASE  !<MUSlT)  -  'A'. AND.  !<MPLAT)  =  •  E* 

SELECT  PRIMARY 
USE  A:P2RS 
SELECT  SECONDARY 
USE  B : OUA L 
SELECT  PRIMARY 

JCIN  TO  TEMP  FOB  (P.CCMFANY  =ONECO  .AND.; 
F.SSN=S.SSN)  FIELDS  SSN  , SWIMQUAL  ,  RFLQUAL, PSTQU A1 
CSE  TEMP 


DC  CNTQUAL 
DEIETE  FILE  TSEF 
CASE  I  (MUNIT)  =  '  A' 
SELECT  PRIMARY 


,  AND  .  !  (MPLAT)  =  'A 


USE  A  :PERS 
SEIECT  SECONDARY 
USE  EzQUAL 
SEIECT  PRIMARY 

JC  IN  TO  TEMP  FCE  (P. COMPANY  -ONEGO  .AND.  P. PLATOON 
C  NEE  LT  .AND.  P-SSN=S.SSN)  FIELDS; 

.ESN,  SWIM  QU  AL,RFIQUAL,  FSTQUAL 
CSE  TEMP 
CO  CNTQUAL 
DELETE  PILE  TEME 

CASE  !  (MUNIT)  =  'A*  .AND.  '.(MPLAT)  =  *3' 

SEIECT  PRIMARY 
USE  A  :PERS 
SELECT  SECONDARY 
USE  E  :  QU  AL 
SEIECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P.CCMFANY  =GNECO  .AND, 

TWCFLT  .AND.  P.SSN=S.  SSN)  FIELDS; 

SSN,SWIMQU  AL,  RFLQUAL  ,  PSI  QUA  L 
CSE  TEMP 
DO  CNTQUAL 

nrtFTF  FT  T  13  tp  »n 

CASE~!  (MUNIT)  “=*»'*'  .AND.  !  (MPLAT)  =  'C* 

SEIECT  PRIMARY 


?. PLATOCN 
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USE  A : PERS 
SELECT  SECONDARY 
OSI  E :QU  AL 
SEIECT  PRIMARY 

JOIN  TO  TEMP  F  CP  (P. COMPANY  =0N2C0  .AND.  P. PLATOON 
IHREEELT  .AND.  E.SSH=S.SSN)  FIELDS; 

SSN,SWIMQU AL ,R ELQUAL, PSTQUAL 
CSE  TEMP  ' 

EO  CNTQUAL 
DEIETE  FILE  TEMP 

CASE  !  (M  UNIT)  =  'A'  .AND.  !  (MPLA  T)  =  'D' 

SELECT  PRIMARY 
USE  A  ; PERS 
SELECT  SECCNDAFY 
USE  E  :QU  AL 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCE  (P. COMPANY  =ONECO  .AND.  P.PLATOCN 
FCURFLT  .AND.  I.SSN=S.SSN)  FIELDS; 

SSN, SWIMQU  AL ,R ELQUAL, PSTQUAL 
CSE  TEMP 
EO  CNTQ’JAL 
DEIETE  FILE  TEMP 

CASE  !  ( M UNIT)  =  •£'  .AND.  !  (MPLAT)  =  •£• 

SEIECT  PRIMARY 
USE  A ; PERS 
SEIECT  SECCNDAFY 
USE  E  :  QU  AL 
SELECT  PRIMARY 

JOIN  TO  TEMP  FOR  (F. COMPANY  =TWOCO  .AND.; 

P.SSN=S.  SSN)  FIELDS  SSN,SWIMQUAL, RFLQUAL, PSTQUAL 
LSE  TEMP 
DO  CNTQUAL 
DELETE  FILE  TEPE 

CASE  1  (M UNIT)  =  '  E*  .AND.  !  (MrLAT)  *  'A' 

SELECT  PRIMARY 
USE  A  : FEES 
SELECT  SECONDARY 
US!  E  :  QU  AL 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P. COMPANY  »TWOCO  .AND.  P.PLATOCN 
CNEPL1  .AND.  P.  SSN=S.  SSN)  FIELDS; 

SSN.SWINQUAL,  RE  EQUAL, FSTQUAL 
CSE  TEMP 
EC  CNTQUAL 
DEIETE  FILE  TEMP 

CASE  !  (MUNIT)  =  '  E'  .AND.  !  (MPLAT)  =  'E* 

SEIECT  PRIMARY 
USE  A  ; PERS 
SEIECT  SECONDARY 
USE  E  ;  QU  AL 
SELECT  PRIMARY 

JC  IN  TO  TEMP  FCF  (P. COMPANY  =TWOCO  .AND.  P.PLATOCN 

11.CFLT  -AND.  P  .  SSN  =  S.  SSN)  FIELDS; 

SSN,SWIMQUAL,RFLQUAL,  PSTQUAL 

CSE  TEMP 

CC  CNTO'IAL 

DEIETE  rlLE  TE  ME 

CASE  !  (MUNIT)  =  •  E'  .AND.  !  (MPLAT)  =  *C' 

SELECT  PRIMARY 
US!  A  : PERS 
SELECT  SECONDARY 
USE  E  ;  QU  AL 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P. COMPANY  =T-OCO  .AND.  P. PLATOON 
THREEFLT  .AND.  I.SSN=S.SSN)  FIELDS ; 

SSN, SWIM QU AL , R ELQUAL,  FSIQUAL 
CSE  TEMP 
DC  CNTQUAL 
DELETE  FILE  TEMI 


CASE  !  (M  UNIT)  =  *  E '  .AND.  I  (MPLAT)  =  *D’ 

SEIECT  PRIMARY 
OS!  AlPERS 
SEIEC1  SECCNDAFY 
US!  E  :  QU  AL 
SELECT  PRIMARY 

JOIN  TO  TEMP  FOR  (p. COMPANY  =TWOCO  .AND.  P.PLATCCN  =; 

FOOBPLT  .AND.  P.SSN=S.SSN  FIELDS; 

SSN,SHIMQUAL,RELQUAL,  PSIQUAL 

CSE  TEMP 

EC  CNTQUAL 

DELETE  FILE  TEPF 

CASE  I  ( M  UNIT)  *  '  C'  .AND.  !  (MPLAT)  =  ’E' 

SELECT  PRIMARY 
US!  AlPERS 
SELECT  SECCNDAFY 
USE  E  :QU  AL 
SEIECT  PRIMARY 

JOIN  TO  TEMP  FCE  (P. COMPANY  =THREECO  .AND.; 
F.SSN=S.SSN)  FIELDS  3  S  N ,  SWI MQU  AL,  F  FLQU  AL,  P  STQU  AL 
USE  TEMP 
DO  CNTQUAL 
DELETE  FILE  TEMP 

CASE  !  {MUNI  Tt  =  'C*  .AND.  !  (MPLAT)  =  *  A ' 

SELECT  PRIMARY 
USE  A  :PERS 
SELECT  SECONDAFY 
OSE  ErQUAL 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCE  (P.CCMPANY  =THREECO  .AND.  p. PLATOON; 
=  CNEPLT  .AND.  E.SSN*S.SSN)  FIELDS; 

SSN,SWIMQUAL ,REIQUAL,  ESTQUAL 
CSE  TEMP 
DO  CNTQUAL 
DELETE  FILE  TEMP 

CASE  1  ( M  UNIT)  =  *C'  .AND.  !  (MPLAT)  =  '3' 

SEIECT  PRIMARY 
USE  A  :PERS 
SEIECT  SECCNDAFY 
USE  E  : QU  A L 
SEIECT  PRIMARY 

JCIN  TO  TEMP  FCF  (P. COMPANY  =THB2ECO  .AND.  P.PLATCON; 
=  TWCPLT  .AND.  E.  SSN=S.  SSN)  FIELDS; 

SSN,SWIMQ  UAL,  RE  EQUAL,  PSIQUAL 
CSE  TEMP 
DO  CNTQUAL 
DELETE  PILE  TEPE 

CASE  !  (M UNIT)  *  *C*  .AND.  !  (MPLAT)  =  ’C' 

SEIECT  PRIMARY 
USE  A  :PERS 
SELECT  SECCNDAFY 
USE  E  :QU  AL 
'‘ELEC T  PRIMARY 

JC1N  TO  TEMP  PCR  (P. COMPANY  =  TH  RE  ECO  .AND.  P.FIATCON; 
=  THREEPLT  .AND.  r.SSN  =  S.SSN)  FIELDS; 

SSN,  SKIM QUAL  ,R  ELQUAL,  PSTQUAL 
CSE  TEMP 
DC  CNTQUAL 
DELETE  PILE  TEMP 

CASE  IJMUNITf  =  »C*  .AND.  ’(MPLAT)  =  *D' 

SELECT  PRIMARY 
USE  A;PERS 
SELECT  SECCNDAFY 
USE  E  :QU  AL 
SELECT  PRIMARY 

JC1N  TO  TEMP  FOR  (P. COMPANY  =  TH  RE  ECO  .AND.  P.FIATCON; 
=  FODFPLT  .AND.  P.SSN=S.SSN)  FIELDS; 

SSN, SWIM QUAL ,R ELQUAL,  PSTQUAL 
CSE  TEMP 


CO  CNTQUAL 
DELETE  PILE  TE  EE 

CASE  i(MUNIT)  *  »C»  .AND.  !  (MPLAT)  =  'E* 

SELECT  PRIMARY 
USE  A  :PERS 
SELECT  SEC  CND AFT 
USE  E  :  QU  A  L 
SELECT  PRIMARY 

JOIN  TO  TEMP  PCF  (P. COMPANY  =POURCO  .AND.: 

P.SSN  =  S.SSN)  FIELDS  S  S  N ,  SH I MQU  AL,  RFLQU  AL,  PS  TQU  AL 
USE  TEMP 
DO  CNTQUAL 
DELETE  FILE  TEMP 

CASE  !  (MUNIT)  =  •£•  .AND.  !  (MPLAT)  =  'A' 

SELECT  PRIMARY 
USE  A:PERS 
SELECT  SECONDARY 
USE  E'.QUAL 
SELECT  PRIMARY 

JOIN  TO  TEMP  FCE  jP.CCMFANY  =FOURCC  .AND.  P. PLATOON 

*  CNEFLT  .AND.  E.SSN  =  S.SSN)  FIELDS; 
£SN,SWINQOAL,REIQUAL, EST CD  AL 

CSE  TEMP 
CC  CNTQUAL 
DELETE  PILE  TE  EE 

CASE  !<HUNIT1  =  'E»  .AND.  !  (MPLAT)  =  »B* 

SELECT  PRIMARY 
USE  A  : PERS 
SELECT  SECONDARY 
USE  E  :  QU  AL 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCR  (P. COMPANY  =FOURCO  .AND.  P.PLATCCN 
»  THOFLT  .AND.  P.SSN=S.SSN)  FIELDS; 

SSN,SHIMQU  AL.RELQUAL,  PSTQUAL 
CSE  TEMP 
DO  CNTQUAL 
DELETE  FILE  TE  EE 

CASE  1  ( M UNIT)  *  «C  .AND.  !  (SPLAT)  *  *C* 

SELECT  PRIMARY 
USE  A  : PERS 
SELECT  SSCCNDAFY 
USE  E  :QU AL 
SELECT  PRIMARY 

JOIN  TO  TEMP  F CP  (P. COMPANY  =FOURCO  .AND.  P.PLATCCN 

*  THREEPLT  AND.  P.SS»  =  S.SSN)  FIELDS; 
SSN,SWIMQUAL,RILQUAL,  PSTQUAL 

CSE  TEMP 
DO  CNTQUAL 
DELETE  FILE  T E  ME 

CASE  l(MUNIT)  *  »E'  .AND.  !  (MPLAT)  =  ’D' 

SELtCT  PRIMARY 
USE  A:PERS 
SELECT  SECONDARY 
USE  E  :  QU  A  L 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCE  (P. COMPANY  «FOURCO  .AND.  P.PLATCCN 

*  FCOEPLT  .AND.  F.SSN=S.SSN)  FIELDS; 
SSN,S*IHQUAL,REIQUAL,  PSTQUAL 

CSE  TEMP 
CO  CNTQUAL 
DEJETE  FILE  TEBI 
ENDC  ASE 

3  12  C  ^  A  Y  "SWI  M  CU  A  L  .  .  •  " 

3  1 2  »  24~SAY  (JZZTOTAL-ZZSWIH)  /ZZTOTAL)  *100  USING  '999  ' 

3  12,31  SAY  ''PERCENT  SWIM  Q  U  AL  I  FI  ED .  .  .  " 

3  12,60  SAY  (ZZTOTAL-ZZSWIM)  USING  '999  ' 

3  14,0  SAY  "RIFLE  QUAL..." 

2  14.24  SAY  {(ZZTQTAI-ZZRFl-ZZNAFFL)/ZZTOTAL)  *100  USING; 
19991  ' 


2  14,31  SAY  "PERCENT  BIFLE  QUALIFIED..." 

3  1 4 , 6  C  SAY  (ZZTOTAL-ZZRFL-ZZNARFL)  USING  *999' 
a  16,0  SAY  "PISTOL  QOAL..." 

2  16,24  SAY  ( (ZZTOTA I-ZZEST -2ZN APST) /ZZTOT  AL)  *100  USING 
•999  * 

2  16,31  SAY  "PERCENT  EISTOL  QUALIFIED. . . " 

2  16,60  SAY  (ZZTOT  AL-ZZPST- Z7N  APST)  USING  »999« 

a  20,0 

ACCEPT  "PRESS  1  ENTER  *  TO  CONTINUE"  TO  PROCEED 
RELEASE  ALL  LIKE  ZZ?<<?7? 

USE 

R2T0RN 


I.  1BAIHIBG  COO  HT  BCOTIIE 


*  ROUTINE  NAME:  CNTTFKG.PRG 

*  MODULE  NAME:  STANDARD  REPORT  GENERATOR 

*  VEESIC  N:  5.3.  1.0 

*  AUTHOR:  R.E.  PBUIETT 

*  DATE:  6NOV83 

*  VARIABLES  USED:  ONECO,  TWCCC,  THREECO,  FOURCO,  ON  EPLT , 

*  TWCELT,  T  HREEPLT,  *  EOURPL 1 

*  VARIABLES  MODIFIED:  NONE 

*  V  API AELES  CREATED:  ZZACOC,  ZZBCOC,  ZZCCOC,  2ZAHIS, 

*  ZZBHI S ,  ZZCHIS,  ZZACOD,  ZZBCCD,  ZZCCOD,  Z2AINT,  ZZEINT, 

*  ZZ  CIRT ,  ZZAAID,  ZZEAID,  ZZCAID,  ZZDAID,  ZZEAID,  ZZFAID, 

*  ZZG AID ,  ZZKAID,  ZZIAID,  ZZJAID,  ZZKAID,  2ZAUNI,  ZZEUNI, 

*  ZZCUNI,  ZZPFT 1 ,  ZZEET2,  ZZANEC,  ZZBNBC,  ZZCNBC,  ZZDNEC, 

*  ZZENBC,  Z ZFN BC ,  ZZAfcKS,  ZZEMKS,  ZZCMKS,  ZZDMKS,  ZZEMKS, 

*  ZZEMKS,  ZZATAC.  ZZE1AC,  ZZCTAC,  ZZDTAC ,  ZZETAC 

*  VAPIAE1ES  RELEASED:  NOME 

*  FILES  CPENED/CLOS  E £ :  NONE 

*  TEMP  FILES  CREATED:  ZZTEME  (SAVES  ALL  VARIABLES  UPON 

*  ENTERING  THIS  ROUTINE) 

*  USING  ECOTINES:  TR NGST AT.  ERG 

*  DESCRIPTION:  THIS  ROUTINE  COUNTS  THE  NUMBER  OF  ESSENTIAL 

*  SUBJECT  TRAINING  ELEMENTS  THAT  HAVE  BEEN  COMPLETED. 


TC  ZZACOC 
TC  ZZBCCC 
TC  ZZCCCC 
TC  ZZAHIS 
TC  ZZBHIS 
TC  2ZCHIS 
TC  Z ZAC  CD 
TC  -ZZBCOD 
TC  ZZCCCD 
TG  ZZAINT 
1C  ZZBINT 
TC  ZZCINT 
TC  ZZAAID 
TC  ZZBAID 
TC  ZZCA ID 
TC  ZZDAID 
TC  ZZEAID 
TC  ZZFAID 
TC  ZZG A  ID 
TC  ZZHAID 
TC  ZZIAID 
TC  ZZJAID 
TC  ZZKAID 
TC  ZZAUSI 
TC  ZZBUNI 
TC  ZZCUNI 
TC  ZZANEC 
TC  ZZBNBC 
TC  ZZCNEC 
TC  ZZDNEC 
TC  ZZENEC 
TC  ZZFN3C 
TC  ZZAMKS 
TC  ZZBMKS 
TC  ZZCM KS 
TC  ZZDMKS 
TC  ZZEMKS 
TC  ZZFMKS 
TC  ZZATAC 
TC  ZZBTAC 
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f.  QUALIFICATION  COURT  ROD  TIB  E 


*  ROUTINE  NAME:  CNTQUAL.  PP.G 

*  MOD  CEE  HARE:  STANDARD  3EPCRT  GENERATOR 

*  VERSION :5 .3. 2 . 0 

*  AUTEOR:  R.E.  PRUIET1 

*  DATE:  C8DEC83 

*  VARIAEIES  USED:  NONE 

*  VARIABIES  MODIFIED:  NONE 

♦VARIAEIES  CREATED:  ZZSWIM  ,  ZZRFL,  ZZNARFL,  ZZPST,  ZZNAPST 

*  VARIABIES  RELEASED:  NONE 

*  FILES  CPENED/CLOSEE:  NONE 

*  TEMP  FILES  CREATED:  NONE 

*  USING  SCEFOOTINES:  TRNGST  AT . PRG 

*  DE  SCRIITICN:  THIS  FCUTINE  FIFST  SAVES  ALL  MEMORY 

*  VARIAEIES  IN  A  MEMORY  FILE  < ZZTOTAL)  AND  THEN  COUNTS  THE 

*  NUMEER  OF  PERSONS  TEAT  HAVE  NOT  COMPLETED  SWIMQUAL, 

*  BFIQUAL,  FSTQUAL  AND  THOSE  PERSONS  NOT  REQUIRED  TO 

*  QUAIIF1  WITH  THE  RIFLE  OR  PISTOL  (N  A)  . 

COUNT  TC  ZZTOTAL 

COUNT  FOB  *  **’  S(SHIMCOAL)  TO  2Z3MIM 
COUNT  FCB  ’  **•  $  (  RF  IQ  0  Al)  TO  ZZFFL 
COUNT  FCB  * NA* $ (RFLQOAL)  TO  ZZNASFL 
COUNT  FOR  • I  (PSTQUAL)  TO  ZZPST 
COUNT  FCB  •  NA»  I  (PSTQUAl)  TO  ZZNAPST 
EETUBN 


G.  18AIBIBG  ROSTER  FCUTIIE 


SO  OH  BE  SAME:  TRNG  E  CST.  PEG 

MODULE  NAME:  STANDARD  REPCRI  GENERATOR 

VERSION:  5.4.0 

AUTHOR:  B.  E.  FRUIE1T 

DATE:  20  E  ECS  3 

VARIABLES  USED:  MUNIT,  MPLAT.  ONECO.  TWO CO,  THREECO, 
FOOfCC.  CNEPLT,  TWCFLT,  THREEPLT,  FOURPLT 
VARIABLES  MODIFIED:  NONE 
V  A  EIAELES  CREATED:  COUNT,  PROCEED 
VARIABLES  RELEASED:  NONE 

FILES  (QPENED/CLOSED)  :  A:PERS  INDEX  A  :  AL PHP ERS  (ALL  FILES 
CLOSED) 

TEHF  FILES  CREATED:  NONE 

OSING  SOE ROUTINES:  STDRPT  .PRG  (5.0) 

D  E  SC  F  T  r'r~CN:  THIS  F COTINE  FRCVIDES  THE  "TRAINING  ROSTER 
BEPCI  TT  STARTS  AT  THE  TOP  OF  THE  PERS. DBF  AND  1CCKS 

A I  El  OSD  INDIVIDUALLY.  IF  A  RECORD  CORRESPONDS  TO 

THE  l*  '  L  ECTED  EY  THE  OSES,  THE  ROUTINE  TRNGRPT.PRG  IS 

CAUL  .CH  COLLECTS  AND  DISPLAYS  THE  TRAINING  DATA  THAT 

COBBES.-NDS  TO  THE  CURRENT  PERS. DBF  RECORD  (E.G.,  IF  THE 
OSEE  WANTS  TRAINING  DATA  CN  EVERY  MEMBER  OF  1ST  PLAT,  A 
CO,  TRNGECST  .PRG  LOCATES  EACH  RECORD  IN  THE  PERS.  DEF 
WHICH  EELCNG  TO  1ST  PLAT,  A  CO.  TRNGRPT.PRG  THEN 
DISPLAYS  THE  TRAINING  DATA  FROM  THE  APPROPRIATE  DATABASE 
FILES.).  INFORMATION  ON  CNE  INDIVIDUAL  IS  DISPLAYED  IN 
SIX  BOWS  AND  FOUR  SETS  OF  DATA  ARE  DISPLAYED  PER  SCREEN. 
THE  CSER  PRESS ‘S  THE  ENT  E  B  KEY  TO  SCROLL  FORWARD  TO  EACH 
SUCCEEDING  SET  OF  INDIVIDUAL  DATA. 


ERASE 

2  12,28  SAY  "TRAINING  BCSTEF  FEFORT" 

a  22,0 

ACCEPT  "PRESS  'ENTER*  KEY  TC  CONTINUE" 
ERASE 

SELECT  FFIMABY 

USE  *:PEBS  INDEX  A : ALPBPERS 

GOTO  TOP 

STORE  0  TO  COUNT 

CO  WHILE  . NCT.  ECP 

DO  CASE 

CASE  J JM UNIT)  =  *  E  ’ 

DO  TRNGRPT 

STCRE  COUNT  ♦  1  TO  COUNT 
CASE  I(HUNIT)  *  *  A ' . AND .  I  (MPLAT)  = 
IF  COMPANY  =  OKECO 
DO  TRNGRPT 

STORE  CCUNT  *  1  TO  COUNT 


ENDIF 

CASE  !  (M UNI T)  =  *£•  .AND.  !  (MPLAT) 
IF  COMPANY  *  ONECO  .AND.  PLATOON 
DO  TRNGRPT 

STCRE  COUNT  4  1  TO  CCUNT 
ENDIF 

CASE  l(MUNIT)  =  *  A*  .AND.  !  (MPLAT) 
IF  COMPANY  =  OKECO  .AND.  PLATOON 
DO  TRNGRPT 

SICES  CCUNT  4  1  TO  CCUNT 
ENDIF 

CASE  1  (MUNIT)  *  *  A*  .AND.  !  (MPLAT) 
If  COMPANY  *  ONECO  .AND.  PLATOON 
DC  TRNGRPT 

STCRE  COUNT  4  1  TO  COUNT 
ENDI? 

CASE  '.(MUNIT)  =  *  A«  .AND.  !  (MPLAT) 
IF  COMPANY  =  OKECO  .AND.  PLATOON 
DO  TRNGRPT 
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STORE  COUNT  +  1  TO  COUNT 
ENDIF 

CASE  !  (MUNIT)  *  'E*  .AND.  I  (HPLAT)  =  ' 
IF  COMPANY  *  TSCCO 
DO  TENGRPT 

STORE  COUNT  +  1  TO  COUNT 
ENDIF 

CASE  !  (MUNIT)  *  ’E’  .AND.  !  (MPLAT)  =  « 
IF  COMPANY  =  TSCCO  .AND.  PLATOON  a 
CO  TRNGRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENCIF 

CASE  t  (HUNIT)  »  •£•  .AND.  !  (MPLAT)  = 

IF  COMPANY  *  TSOCO  .AND.  PLATOON  = 
DO  TBNGBPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIF 

CASE  !  (HUNIT)  =  »  E«  .AND.  ’(MPLAT)  = 

IF  COMPANY  =  TSCCO  .AND.  PLATOON  = 
DO  TRNGRPT 

STORE  COUNT  ♦  1  TO  CCUNT 
ENDIF 

CASE  !  (HUNIT)  *  'E»  .AND.  !  (HPLAT)  = 

IF  COMPANY  =  TSCCO  .AND.  PLATOON  = 
DC  TRNGRPT 

STORE  COUNT  ♦  1  TO  COUNT 
EH  DIP 

CASE  S(MONIT)  *  «C*  .AND.  ’(MPLAT)  = 

IF  COMPANY  =  THREECO 
DO  TRNGRPT 

STORE  COUNT  *  1  TO  CCUNT 
ENDIF 

CASE  !  (MUNIT)  *  'C*  .AND.  !  (MPLAT)  = 
IF  COMPANY  «  TREEECO  .AND.  PLATOON 
DO  TRNGRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENCIF 

CASE  1  (HUNIT)  =  »C*  .AND.  !  (MPLAT)  a 
IF  COMPANY  *  TEEEECO  .AND.  PLATOON 
DO  TRNGRPT 

STORE  CCUNT  ♦  1  TO  CCUNT 
ENDIF 

CASE  !  (HUNIT)  *  «<;•  .AND.  !  (MPLAT)  = 

IF  COMPANY  =  TEEEECO  .AND.  PLAxOQN 
DC  TRNGRPT 

STORE  CCUNT  *  1  TO  CCUNT 
ENDIF 

CASE  t  (HUNIT)  *  «C'  .AND.  !  (MPLAT)  * 
IF  COMPANY  =  THREECO  .AND.  PLATOON 
DO  TRNGRPT 

STCRE  CCUNT  ♦  1  TO  CCUNT 
ENCIF 

CASE  !  (HUNIT)  *  *L*  .AND.  !  (HPLAT)  = 
IF  COMPANY  «  PCCRCO 
DO  TRNGRPT 

STCRE  CCUNT  ♦  1  TO  CCUNT 
ENDIF 

CASE  !  (HUNIT)  =  *  I*  .AND.  !  (MPLAT)  = 
IF  COMPANY  =  FCURCO  .AND.  PLATOON 
DO  TRNGRPT 

STORE  CCUNT  1  TO  CCUNT 
ENCIF 

CASE  !  ( M  UNI T)  =  •  L  •  .AND.  '.(MPLAT)  = 

IF  COMPANY  *  FCURCO  .AND.  PLATOON 
DC  TRNGRPT 

STORE  COUNT  ♦  1  TO  COUNT 

ENDIF 

CASE  ! (MUNIT)  =  .AND.  !  (MPLAT)  = 

IF  COMPANY  =  FCURCO  .AND.  PLATOON 


E' 


A' 

ONEP  LT 


3’ 

TWOPLT 


C* 

T  HREEPLT 


D’ 

FOORPLT 


=  ONEPLT 


B  ' 

a  TWOPLT 


C' 

=  THREE?  LT 


D ' 

=  POURPLT 


'  E  * 


•A’ 

ONEPLT 


•3' 

=  TWOPLT 


•C* 

=  THREEPLT 
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CO  TRNGRPT 

STORE  COUNT  +  1  TO  COUNT 
EN  CIF 

CASE  !  (HONI T)  =  'C  .AND.  !  (MFLAT)  =  'D* 

IF  COMPANY  =  FCCRCO  .AND.  PLATOON  =  FOURPLT 
DC  TRNGEPT 

STORE  COUNT  +  1  TO  COUNT 
ENDIF 

INDC ASS 
IF  CCCNT  =  4 

a  22,0 

ACCEPT  "FP.ESS  ’ENTER*  TO  CC  NT  I NU  £M  TO  PROCEED 
STORE  0  TO  COUNT 
ERASE 
ENDIF 

SELECT  PEIHARY 

SKIP 

ENDDC 

RELEASE  COUNT, PRCC  EEC  ,MSSN 
CSE 

RETURN 


B.  TRAINING  ROSTER  FORMAT  BOQTIHB 


*  ROUTINE  NAME: 

*  MODULE  NAME:  STANDARD  HEP  CRT  GENERATOR 

*  VERSION:  5.4. 1 .0 

*  AUTHOR:  B.E.  PRUIE1T 

*  DATE:  15CEC83 

*  VARIABLES  USED:  CO  ONT ,  PLATNAME,  UNITNAME,  MPLAT, 

*  VARIABLES  MODIFIED:  NONE 

*  VARIABLES  CREATED:  ECW,  SSSN 

*  VARIABLES  RELEASED:  NONE  *  FILES  OPENED/CLOSED:  E 

*  INEEX  E  :COALS  SN.  B'.EST  INDEX  B:ESTSSN 

*  TEE E  FILES  CREATED: 

*  USING  SUBROUTINES:  TRNGRO  ST. PRG 

*  DESCRIPTION:  THIS  ECUTINE  PROVIDES  THE  FORMAT  AND 

*  DISPLAYS  THE  ‘'TRAINING  ROSTER  REPORT". 

STORE  (COUNT  *  6 )  TO  EOW 
3  ROW,0  SAY  NAME 
a  RON, 30  SAY  RANK 
3  RON, 33  SAY  COMPANY 
STORE  SSK  TO  HSSN 
SELECT  SECONDARY 
USE  B : C CAL  INDEX  B: QOALSSN 
EIND  S8SSN 

3  RO i  ,39  SAY  "SUM  QUAL  '• 

3  ROW ,49  SAY  SWIMQOAL 
3  RO  S  ,52  SAY  "RIFLE  CUM  '• 

3  ROW, 63  SAY  RFLQUAL 
3  SO  W  ,06  SAY  "PISTOL  COAL  » 

3  ROW ,7 8  SAY  PSTQUAL 
SELECT  SECONDARY 
USE  E : EST  INDEX  E:EST£SN 
FIND  SHSSN 


fc 

ROW 

4 

1,0 

SAY 

"CODE  OF  CONDUCT  " 

3 

RO  S 

♦ 

1,16 

SAY 

coc  • 

3 

LOW 

♦ 

1,22 

1,35 

SAY 

"HARCOR  HIS  " 

3 

ROW 

♦ 

SAY 

HIS 

3 

ROW 

♦ 

1,43 

SAY 

"MARKSMANSHIP  » 

3 

ROW 

4 

1,56 

SAY 

MKS 

3 

ROW 

4 

1,67 

SAY 

"DRILL  " 

3 

ROW 

4 

1,74 

SAY 

COD 

3 

ROW 

♦ 

i.o 

SAY 

"INTERIOR  GO  ARC  " 

3 

ROW 

4 

*,16 

SAY 

INT 

3 

ROW 

♦ 

2,22 

SAY 

"MARKSMANS  HIP  " 

3 

ROW 

♦ 

2,35 

SAY 

MKS 

3 

ROW 

4 

2,4* 

SAY 

"TAC  MEASURES  " 

3 

ROW 

♦ 

2,56 

SAY 

TAC 

3 

ROW 

4 

2,6  7 

SAY 

"NBC  " 

3 

ROW 

♦ 

2,74 

SAY 

NBC 

3 

ROW 

4 

2,0 

SAY 

"P  FT  1  " 

3 

ROW 

4 

3,6 

SAY 

EFT  1  CIS  S 

3 

BOW 

4 

3,10 

3,16 

SAY 

"PPT  2  " 

3 

ROW 

4 

SAY 

PFT2CLSS 

3 

ROW 

4 

2,2  2 

SAY 

"EQ  OIP/UNI FORM  " 

3 

ROW 

4 

3,3  6 

SAY 

UNI 

3 

ROW 

4 

3,4  3 

SAY 

" PI E ST  i  ID  " 

2  ROi  ♦ 
FETOEN 

3,54 

SAY 

AID 

MU  NIT 
QUAL 
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I.  MARKSMANSHIP  STA1GS  ROUTINE 


*  RO01INF  NAME:  MKSSTAT. FRG 

*  MODULE  N A  ME:  STANDARD  REPORT  GENERATOR 

*  VERSION:  5.6. 0 

*  A01HCR :  R.E.  PBOIETT 

*  DATE:  28NCV83 

*  VARIABLES  US  ED : D NITNAME . P 1  AT NA HE 

*  VABIAELES  MODIFIED:NO  GLOBAL  VARIABLES  MODIFIED 

*  VARIABLES  CREATED:  RFLEX,  RFLSS,  RFLMM,  RFLON,  PSTEX, 

*  PSTSS.  ESTMM,  FSTUN,  RFLSHOT,  PCTEX,  PCTSS,  PCTMM,  PCTUK. 

*  PCTEJEST,  PCTSSPST,  PCTMMEST,  PCTONPST,  PROCEED,  analyzed 

*  VARIABLES  RELEASED:  FST??  ??? ,  PCT?????,  RFLEX,  RFLSS, 

*  RFLMM,  RFLUN.  PROCEED,  AN  ALY ZE6 

*  FILES  JCFENED/CLOSI D) :ALL  CLOSED 

*  temp  files  created-.m&kste  mp,  hkstemp 

*  USING  SOB  FOUTI  NES  :  STDRPT.  ERG 

*  DESCRIFTICN:THIS  RCOTINS  CREATES  A  TEMPORARY  FILE  WHICH 

*  CONTAINS  THE  CURRENT  YEAR  RIFLE  AND  PISTOL  QUALIFICATION 

*  RESULTS  FOR  EACH  MEMBER  IN  THE  SELECTED  COMPANY  AND/OR 

*  PLATOCN.  THE  RESOITS  ARE  TOTALED  BY  QUALIFICATION 

*  CAT  EGCEY  FOR  TEE  R3ILE  AND  PISTOL.  PERCENTAGES  ARE 

*  CALCULATED  AND  DISE1AIED  IN  A  SUMMARY  STATUS  REPORT  WHICH 

*  IS  AUTOMATICALLY  DISPLAYED  ON  THE  SCREEN. 

ERASE 

CO  CVETUNIT 
DO  C  A  <F 

OISE  !  ( MUN  IT )  *  *  E  1 
CSE  E:QUAL 

CASE  1  (  MUN  IT)  <>  *  E '  .AND.  !  < MPLA  T)  =' B  ' 

CSE  A :PERS 

COPY  TO  MRKSTEMP  ALL  FIELD  SSN  FOR  COMPAN Y=UNITNAME 

CSE  MRKSTEMP 

SELECT  SECONDARY 

OSE  E:QUAL 

SELECT  PRIMARY 

JOIN  TO  MKSTECE  FOR  E.SSN  =  S.SSN  FIELDS  H FLQUAL , ; 

PSTQUAL 

CCE  MKSTEMP 

CASE*!  (MUNIT)O' E'  .AND  !  (  MPLAT)  <>' E  ' 

CSE  A:PERS 

COPY  TO  MRKSTEMP  ALL  FIELD  SSN  FOR  COMPANY=UNIT NAME; 

.AND.  PLATOON  *  PLAT  NAME 

CSE  MRKSTEMP 

SELECT  SECONDARY 

OSE  B:QUAL 

SELECT  PRIMARY 

JOIN  TO  EKSTEME  FOR  E.SSN  =  S.SSN  FIELDS  R  FLQUAL , ; 

PSTQUAL 

OSE  MKSTEMP 

FNCCASE 


COUNT 

FOR 

RFLC 

}0Al 

S 

'EX  ' 

TO 

RFLEX 

COUNT 

EOF 

RFL( 

)U  AL 

s 

•ss' 

TO 

RFLSS 

COUNT 

FOP 

RFLC 

UAL 

St 

'EM' 

TO 

RFLMM 

COUNT 

FOB 

RfLC 

UAL 

s 

'UN' 

TO 

RFLUN 

COUNT 

FOB 

fstc 

JUAL 

s 

•EX  ' 

TO 

PSTEX 

COUNT 

FOF 

PSTC 

5  U  A  L 

s 

'SS* 

TO 

PSTSS 

COUNT 

FOB 

P  STO 

J  U  A  L 

— 

'MM' 

TO 

PSTMM 

COUNT 

FOF 

PSTC 

}UAL 

ac 

'ON' 

TO 

PS1UN 

ERASE 

STORE  (RELEX+RFLSS  +  RELMM  +  RFLUN)  TO  RFLSHOT 
IF  RFLSHOT  >  0 

STCFE  (RFLEX/RFLSHCT*  100)  TO  PCTEX 
STORE  <RFLSS/HFLSHCI*1 00  TO  PCTSS 
STCFE  (RILMM/RELS  HOT*  100)  TO  PCTMM 
STCFE  (RFLUN/RFLSHCT*  100  TO  PCTUN 
INDIF 

STORE  (FSTEX+PSTSS  +  PSTMM+PSTUN)  TO  PSISHOT 


i  ST 


IF  PS1SHCT  >  0 

STCFE  (PSTEX/PSTSHCT*  100 
STCFE  (ES1SS/PSTSHCI*100 
STCFE  <PSTMM/PSTSHCT*100 
ST  C  FE  (PSTUN/PSTSHCI*100 


SIC  EE 
STCFE 
STCFE 
END  I F 
a  i,  20 
a  3/i  s 
a  3,22 
a  3 , 3  s 


PCTEXPST 

PCTSSPST 

FCTMMPST 

PCTONPST 


20  SAY  "HARK  SHAN  SKIP  STATUS  REPORT" 
1  SAY  "  RIF  L  E  EXPERTS . " 

22  SAY  RFLEX 

3  S  SAY  "PISTOL  E3FERTS . " 

6  3  SAY  PST  EX 

1  SAI  "RIFLE  SHAFFSHCOTEES.. 

23  SAY  BFLSS 

35  SAY  "PISTOL  SH  ARPSHOCTEFS  .  .  -  .  " 

63  SAY  ESTSS 

1  SAY  "RIFLE  MARFSMEN . 1 

22  SAY  FFLNM 

3  S  SAY  "PISTOL  MABKSMEN . " 

62  SAY  FSTMM 

1  SAY  "UNQUALIFIED . " 

,23  SAY  RFLUH 

,  3  S  SAY  "UNQUALIFIED . " 

.63  SAY  FSTUN 

1,1  SAY  "TOTAL  . " 

1 ,23  SAY  RFLS HOT 

',39  SAY  "TOTAL . " 

,63  SAY  PSTSHOT 

,24  SAY  "PERCENTAGES" 

,34  SAY  " - " 

IlSHCT  >  0 

16,1  SAY  "RIPLE  EXPERTS . 


3  15,24  SAY  "PERCENTAGES" 

3  16,34  SAY  " - " 

IF  hILSBCT  >  0 

a  16,1  SAY  "RIFLE  EXPERTS . " 

a  ie,22  SAI  PCTEX 

a  19,1  SAY  "RIFLE  SHARPSHOOTERS . " 

a  19,22  SAY  PCTSS 

a  20,1  SAY  "RIFLE  FARKSMEN . » 

i  20,22  SAI  PCTHH 

a  21,1  SAY  "UNQUALIFIED . " 

a  21,23  SAY  PCTUN 


a  ie,22 
a  19,1  s 
a  19,22 
a  20,i  s 
a  20, 2 j 
a  2i,i  s 
a  21,23 

ELSE 

a  ie,i  s 
a  20,1  s 

ENDIE 

IF  PSISHCT 
3  16,39 
a  16,63 
3  19,39 
a  12,63 
a  20,39 
a  20,63 
a  21,39 
a  21,63 


SHARPSHCOTERS . " 

FARKSHEN . » 


SAY  "NO  UNIT  MEMBERS  RAVE  FIRED  THE  " 

SAY  "RIFLE  FCR  QUALIFICATION  THIS  YEAR." 


"PISTOL  EXPERIS . " 

a  16,63  SAY  PCTEXPST 

3  19,39  SAY  "PISTOL  SHARPSHOOTERS..." 

d  19,63  SAY  PCTSSPST 

a  20,39  SAY  "PISTOL  MARKSMEN . « 

a  20,63  SAY  PCTMMPST 

a  21,39  SAY  "UNQUALIFIED . " 

a  21,63  SAY  PCTUNPS1 

ELSE 

a  16,39  SAY  "NO  UNIT  MEMBERS  HAVE  FIRED  THE" 
a  20,  35  SAY  "PISTOL  FOR  QUALIFICATION  THIS  YEAR" 
ENDIF 
2  22.0 

ACCErT  "PRESS  'ENTER'  KEY  TC  CONTINUE"  TO  PROCEED 
RELEASE  ALL  LIKE  PST????? 

RELEASE  ALL  LIKE  PCT????? 

IRAS  E 

ACCEPT  "DO  YOU  WANT  TC  DO  A  CC  S  F  A  NY/B  AT  T  AL  ION  RANGE  Q! 
ANALYSIS?  (Y/N)  "  TO  ANALIZE6 

IF  1  (ANALYZE6)  =  »  Y' 

DC  ! :  QT  ASTU  D Y 
ENDIF 

RELEASE  FFLEX,  RFLSS, RFLMH, R FLU N, RFLS, PROCEED, ANAL YZS6 
CSE 

FETU  FN 


"NO  UNIT  MEMBERS  HAVE  FIRED  THE" 
"PISTOL  FOR  QUALIFICATION  THIS  YEAR" 


LIKE 

LIKE 


ENTER'  KEY  TC  CONTINUE"  TO 
E  PST????? 

E  PCT????? 


PROCEED 


WANT 


YSIS ?  (Y/N)  "  TO 

(ANALYZE6)  =  'Y' 
C  E-.CTASTUDY 


TC  DO  A  CC  HP  ANY/BATTALION 
ANALIZ  E6 


RANGE  QUOTA; 
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J.  CONVERT  D1IT  SOOTHE 


ROUTINE  NiME:  CVRTONIT.PRG 

HO D CIS  NAME:  STANDARD  REPORT  GENERATOR 

VERSION:  5.6.  1 .0 

AUTfiCF:  R.E.  PROIETT 

DATE:  28NCV83 

VARIABLES  USED:  MO  KIT ,  MPLAT,  CNECO,  TWOCO,  THSEECC, 

FOOFCO.  CNEPLT,  TWCELT,  THRElPLT,  FOURPLT 

VARIABLES  MODIFIED:  NONE 

VARIABLES  CSEATED:  ONITNAME,  PLATNAME 

VARIABLES  RELEASED:  NONE 

FILES  (OPENED/CLOSEE)  :  NONE 

TEH P  FILES  CR  EAT  ED  :  NONE 

USING  SUBROUTINES:  MKSSTAT.PHG  (5.6.0)  AND  MOSSTAT.PRG 
(5.6.C) 

DESCRIPTION:  THIS  ROUTINE  STORES  THE  NAME  OF  THE  COMPANY 
AND  PLATOON  SELECTEE  BY  THE  USER  DURING  ROUTINE 
S  LCTU  N IT ' .  IT  IS  NECESSARY  BECAUSE  WHEN  THE  USER 
SELECTS  A  UNIT  AND  SUBUNIT  IT  IS  DONE  EY  MENU  SELECTION. 
ACCORDINGLY  THE  ONLY  THING  STORED  INTO  MEMORY  IS  THE 
CORRESPONDING  LETTER  FROH  THE  MENU  PROVIDED  BY  THE 
SLCTUNIT.  PRG  (A,  B,  C,  D,  E)  .  SOME  SCREEN  DISPLAYS 
HEQCIRE  THE  UNIT  NAME  (  E.G.,  "A  CO"  VICE  "A"  )  SO  A 
CONVERSION  IS  NECESSARY. 

DO  CASE 

CASE  1  (HUNIT)  *•  A* 

STORE  ONECC  TO  ONITNAME 
CASE  !  (MQNIT)  *'  B' 

STORE  TWOCC  TC  ONITNAME 
CASE  !<MUNIT)='C’ 

STCSE  THREECO  TC  UNIT  NAME 
CASE  ! ( MONIT)  »'  D' 

STORE  FOUBCO  TC  U NIT N  A ME 
ENECASE 

IF  !  (CUNIT)  O  «E« 

10  CASE 

CASE  !  (MILAT)  =•  A* 

STORE  ONEPLT  TC  PLATNAME 

CA^F  1  IKP1AT1  ='  B' 

“STORE  TWOPLT  TC  PLATNAME 
CACF  WP’F'LA'M^'C* 

“STCRE  THREEPLT  TO  PLATNAME 
CAeF  !  < M FLAT} * • D 1 

“STORE  FOURPLT  TC  PLATNAME 
INDCASE 
ENDIE 
RETURN 


F.  C0011  5T0DY  BOOTHE 


*  ROUTINE  NAME:  QT ASIOCY.PR G 

-  H  )  D  DIE  N  A  EE:  STANDAFD  REPORT  GENERATOR 
■*  v  EFSICN:  5.6.  2.0 

*  AUTHOR :  R.E.  PROIETT 

*  DATE:  1SEEC83 

*  VARIABIES  USED:  UNITNAME,  EL  AT  NAME.  RPLS  HOT ,  RFLEX, 

*  RF  LSS ,  BFJ.MM,  FFLUN,  MUNIT,  QPEB,  QMAR, 

*  .  . . ,QDEC 

*  VAR  1ABIES  MODIFIED:  NO  GLCEAL  VARIABLES  MODIFIED 

*  VARIABIES  CREATED:  RFLNA ,  HCNTH,  TOTALREC,  MLEFT,  MSUM, 

*  NEE  EEC,  EXTRA,  W  HAT  IF 

*  VARIABIES  RELEASED:  MONTH.  V  HAT  IF,  EXTRA,  NEEDED,  MSOM, 

*  MLEET,  TOTAL  REC,  RELNA,  07?? 

*  FILES  jOFENED/ClOS  E  E)  :  NONE 

*  TEMP  PI1FS  CREATED:  NONE 

*  USING  SCBEOUTINES:  EKSSTAT.FBG 

*  DESCRIETICN:  THIS  MODULE  IS  USED  BY  KKSSTAT.PRG  AN E 

*  DISPLAYS  THE  RANGE  COOTAS  THAT  REMAIN  FOR  THE  CURRENT 

*  YEAR.  THE  CURRENT  MONTH  IS  EXTRACTED  FROM  THE  'LOG  ON 

*  DATE'  INC  THE  RANGE  QUOTAS  FOR  EACH  UNIT  IS  STORED  IN  A 

*  HEMCBY  FILE  DUPING  THE  ANNUAL  INITIALIZATION  PROCEDURE. 

*  SUMHIRY  INFORMATION  IS  PROVIDED  CONCERNING  THE  RELATICN- 

*  SHIE  EITWEEN  REMAINING  RANGE  QUOTA  REQUIREMENTS  AND 

*  RFBAINING  RANGE  QUOTA  ALLOCATIONS.  UPON  CONCLUSSICN  OF 

*  THE  MODULE  THE  USER  MAY  RETURN  TO  THE  STANDARD  REPORT 

*  MENU  CS  TC  A  SCRATCH  PAD  TC  REVISE  QUOTA  ASSIGNMENTS. 

*  •:*.  ’ISEC  QUOTA  ASSIGNMENTS  FROM  THE  SCRATCH  PAD  CAN  EITHER 

*  bE  SAVED  CR  IGNORED. 


ZPA  SE 
r  CASE 


A  V-  it 

CA 

J  £ 

SE 

!  (MUNIT) 

<>  'E' 

•  AN 

C. 

1  l 

(MPLAT) 

:  I 

E» 

a 

1,15  SAY 

"RANGE 

QUO 

TA 

At 

1ALYSIS 

FOR 

n 

a 

1,40  SAY 

UNITNAM 

E 

CA 

SE 

!  (MUNIT) 

<>  »  E» 

-AN 

C. 

! 

(MPLAT) 

<> 

•  E' 

a 

1,  15  SAY 

"RANGE 

QUO 

TA 

At 

JALYSIS 

FOR 

ii 

a 

1,40  SAY 

UNITNAM 

E 

a 

a 

1,46  SAY 
1,48  SAY 

fl  H 

pLatname 

C  A 

SE 

! (MUNIT) 

=  '  I  • 

a 

1,15  SAY 

"RANGE 

QUO 

TA 

ANALYSIS 

FOR 

EATTAL ION  " 

ENDC  A 

SE 

* 

COUNT  FCF  RFIQUAL  *  * NA '  TO  RFLNA 

STORE  $  (AABATE,3  ,Z)  TC  MONTH 
GOTO  EOTTCH 
STORE  t  TC  TOTALREC 

3  4,1  SAY  "NUMBER  OF  MARINES  FIRED  FOR  QUALIFICATION; 
EURI NG" 

a  5,  1  S A 1  "CURRENT; 

YEAR. . . " 

a  5 , 5  C  SAY  HFLSIIOT 

d  6,1  SAY  "NUMBER  0?  MARINES  FIRED  FOR  QUALIFICATION; 
CURING" 

3  7,1  SAY  "CURRENT  YEAR  BUT  DID  NOT; 

QUALIFY . " 

2  7,50  SAY  RFLON 

3  8,1  SAY  "NUMBER  OF  MARINES  NOT  REQUIRED  TO  QUALIFY; 
DURI NG" 

3  9,1  SAY  "CURRENT; 

YEAR . . . . . " 

a  9,5C  SAY  RFLNA 

STORE  (TCTALPEC  -  RFLNA  -  RFLEX  -RFLSS  -  RFLMM)  TO  MLEFT 
a  10,1  SAY  "MARINES  LEFT  TO  QUALIFY  DURING  CURRENT; 

YEAR . " 

a  10,50  SAY  MLEFT 
£0  CASE 
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CASE  JJMUNIT)  =  '  A  * 

RESTORE  FROM  A : ARNGQT AS  ADDITIVE 
CASE  IJflUNIT)  = 

RESTORE  FROM  A : ERNGQT  AS  ADDITIVE 
CASE  !  (HUNIT)  =  »C* 

RESTORE  FROM  PlCRNGQTAS  ADDITIVE 
CASE  i(MUNIT)  =  •!' 

RESTORE  FROM  A  :  ERNGQT  AS  ADDITIVE 
CASE  !  (M  UNI  T)  =  ‘E' 

RESTORE  FROM  A : ENRNGQTA  ADDITIVE 
i c  ft  «p 


INDC  A  SE 
CO  C  *  SE 

CASE  MONTH  =  '01» 
3  12,  4  SAT  "FEB 
SEE  OCT  NCV 


3  12,  4  SAT  "FEB  MAR 
SEE  OCT  NCV  DEC" 

3)  14,4  SAT  SIR  (CF  EB,31 
3  14,10  SAT  STR?CMAR,31 
3  14,16  SAY  STRKAER.3) 
3  14,22  SAY  STR(QMAY,31 
3  14,28  SAT  SIR  CODR, 3) 
a  14,34  SAY  S  TR  ( 5 JUL ,  3) 
a  14,40  SAT  STR  C  AUG ,  3) 

3  14,46  SAT  S TR  ( Q SEP ,  3) 

0  14,52  SAT  S  TR  i  QCCT  ,  3) 

3  14,58  SAY  S  TR ( QNCV , 3 


AUG; 


iOJDL, 3 
Q  AUG  ,  31 
Q  S EP ,  3 
QCCT, 3 i 
QNCV,  3 
QEFC.3 

3TCRE  (QFEB*  OMAR*  QAPR*  QMAY*  QJUN+  QJUL* 
CCCT+  QNCV*  QCEC)  TO  MSUB 
5  16  ,4  SAY  "A  TOTAI  OF  » 
at  16,15  SAT  STR  /M  SUM  ,  3) 

3  16,19  SAY  "QUOTAS  REMAIN  FOR  THE  CUPRENT 
CASE  MCNTF  *'Q2' 

3  12,4  SAY  "MAR  APR  KAY  JON  JOL 


QJUN*  QJUL*  QAUG*  QS 


at  16,15  SAY  STR  ( 
3  16,19  SAY  "QUO 
CASE  MCNTF  *'02' 

3  12,4  SAY  "MAR 

OCT  NOV  DEC" 
3  14,4  SAY  STR( 
3  14,10  SAY  STR 
3  14,16  SAY  STR 

3  14,52  SAY.  S TR  ( 

a)  14,28  SAY  STR 
3  14,34  SAY  S  TR  ( 

3  14,40  SAY  STE 
3  14,46  SAY  S  TR  ( 
a  14,52  SAY  S  TR  ( 
3  14.58  SAY  S TR  ( 


YEAR. " 
AUG  SE! 


QOON,3 

QJUL,3) 

Q  AUG  ,  3 
CSEP ,  3) 

' QCCT,  31 
[  Q  FCY , 3) 
QCEC,  3 
>E*  Q?  AY" 


w  |  i  y  /  ji 

a  14,58  SAY  STR  (QCEC,  3)_ 

STORE  <QMAR*  CAPS*  Qfc  AY*  QJUN*  QJUL*  QAUG*  QSEP* 
C  NCV  ♦  QCEQ  TO  MSUM 
3  16,4  SPY  "A  TOTAI  OF  " 
a  16,15  SAY  S  TR  {  M  SUM  ,  31 

a  16,19  SAY  "QUOTAS  REMAIN  FOR  THE  CURRENT  YEAR.1 

AUG  SEP  < 


a 

12,4  s 

AY  " 

AER 

EAY 

NCV  EEC" 

a 

14,4  S 

AY 

STR  I 

[QAFR,3; 

a 

14,  10 

SAY 

STR  ( 

0  f)  A  Y ,  3 

a 

14,16 

SAY 

STR  I 

Cu  UN , 3 

a 

14, 22 

SAY 

SIS  { 

QJUL, 3 

a 

14,28 

SAY 

STB  i 

C  AUG  ,  3 

a 

14,34 

SAY 

STR  < 

OSEP,  3] 

a 

14,40 

SAY 

STH  i 

[  C CCT ,  3 

a 

14, 46 

SAY 

STR  1 

QNCV,  3' 

a 

1 4 5  2 

SAY 

STR  i 

QCEC. 3' 

STCRf  <QAPR*QMAY*QJON*' 
TO  BSCM 

THE 

OUL 


an.ii  i  ^  fir  Ty  ufl  k  T^ouflTyu  ui.1 

TO  BSCM 

a  16  ,4  SAY  "A  TOTAI  CF  " 
a  16,15  SAY  STR  {  M  SUM  .  31 
a  16,19  SAY  "QUOTAS  REMAIN 
CASE  MCNTF  =  *04' 

3  12,4  SAY  "MAY 
DEC" 


QAUG*QSEP+QOCT*QNOV< 

FOR  THE  CURRENT  YEA! 
AOG  SEP  CCT 
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14,4  SAY  ST  E  (QMA  Y  ,3) 
14,  10  SAY  STR  (QJUN,3, 
"  "  SAY  STR(QJUL,3 

SAY  STR  <CA0G,3) 
SAY  STR(0S£P,3 
SAY  STR(CCCT,3 
SAY  STR  ‘ 

SAY  SIR 
MAY  +  QJU 


14,16 

14,22 

14,28 

14,34 

14,40 

14,48 


W  1  ^  < 

STORE 


g*cv,3j 


.CEC;3| 

♦  QJUi>QAUG  ►QSEP+QOCT  +  QNOV+QDEC)  TC  MSUM 


a  16,4  ill  "X  TOTAL  OF  " 

S  16,15  SAY  STR  (M  SOH  ,  31 

©  16,19  SAY  "  COOT  AS  REMAIN  fCR  THE  CURRENT  YEAR." 
CASE  MCNT  8  *‘05' 
a  12,4  SAY  "JON  JOL 
14,4  SAY  ST R (QJ  ON,  31 
14,10  SAY  STR(CJ0L,3 
14,  16  SAY  STR  (QAUG,3l 


d 

a 

a 

a 

a 

a 


AOG 


SEP 


OCT 


NOV 


DEC" 


14,22  SAY  STR  (CSEP,3 
14,28  SAY  S  TR  (QCCT ,  3) 
14,34  SAY  STB  ,  g NC V  , 3 


a  14,40  SAY  STR  (QCEC,  3j 

STORE  (QJUN+QOUl+CAOG+QS  EF*QOCT*QNOV  +  QD£C)  TO  MSUM 
a  16,4  SAY  " A  TOTAL  OF  " 
a  16,15  SAY  STR  (MSUM, 3) 

a  16,19  SAY  "QUOTAS  REMAIN  FOR  THE  CURRENT  YEAR." 
CASE  MONTH  06» 


3  12,4  SAY  "JUL 
a  14,4  SAY  ST B ( 
a  14,10  SAY  STR 
3  14,16  SAY  STR 
a  14,22  SAY  STR 
3  14,28  SAY  STR 


AOG 
|J0I 


QAufi^l 

CS£P:3 

a  /■*  “l* 


SEP 


OCT 


NOV 


DEC" 


'QCCT,  3 
|ChCV,3 


3  14,34  SAY  STR  (QCEC,  3) 

STCRE  (G  JUL+Q  AUG*CSEP*QOCT  +  QNOV*QDEC)  TO  MSUM 
a  16,4  SAY  "A  TOTAL  OP  " 


a  16,15  SAY  STR  (MSUM, 3) 
3  16,19  SAY  "COOTAS  REM 
CASE  MONTH  =  '07* 

3  12,4  SAY  "AOG  SEP 
a  14,4  SAY  STB(QACG,3) 
a  14,  10  SAY  STR  I  QSEP,3) 
a  14,16  SAY  STS  I  QCCT, 3) 
a  14,22  SAY  S TR  (QNCV  ,  3 
3  14,28  SAY  STB  QCEC, 3) 


AIN  FOR  THE  CURRENT  YEAR." 


OCT 


NOV 


DEC" 


1  ^  f 

STCRE 


AUG*QSEF*CCCt+QN  0  V  +  QDEC)  TO  MSUM 


a  i6,4(§ay  "X  total  op'" 


16,15  SAY  S TR  (M SUM  ,  31 

16,19  SAY  "QUOTAS  REMAIN  FCR  THE  CURRENT  YEAR." 

•08* 


CCT 


NOV 


a 

a  tw ,  w  . 

CASE  MCNT  E 
3  12,4  SAY  "SEP 
3  14,4  SAY  STR  (QS  EP,  31 

3  14,10  SAY  STR]CCCT,3 
3  14,16  SAY  STR  ‘ 

a  14,22  SAY  STR 
STCRE  (CSEP+QOC. 

3  1<?^_SAY_"X_T0T 

a 
a 

CASE 

a  12,4  SAY  "OCT  KOV 
a  14,4  SAY  ST  P  (00  CT  ,  3) 
a  14,10  SAY  S  TE  (Q  KC V  ,3) 
a  14,16  SAY  S  TR (Q  E  EC ,  3) 

STCRE  (QCCT*  QNOV+  CDEC)  TC  MSUM 
3  16,4  SAY  "A  TOTAL  " 


DEC" 


16,  15  SAY  STR  (MSUM, 31 
16,19  SAY  "QUOTAS  REM 
E  MCNT  E  ='09» 


NCV ,  3) 

'DEC  3) 

‘cNoWqDEC)  TO  MSUM 
AL  OF  " 


AIN  FCR  THE  CURRENT  YEAR." 
EEC" 


a  16,4  SAY  "A  TOTAL  OF 
3  16,15  SAY  STR  (MSUM, 3} 
a  16,  19  SAY  "QUOTAS  REM 


CASE  &CNTH  **  1  O’ 
3  12,4  SAY  "NOV 


AIN  FOR  THE  CURRENT  YEAR." 


EEC" 
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a  14,4  SAY  ST R (QNC V ,3 ) 
d  14.10  SAY  striqcec,3) 
STORE  (CNOV+QDEC)  10  HSU 
a  16,4  SAY  "A  TOTAL  0£ 
a  16,15  SAY  STR  (M  SUM ,  : 
a  16,19  SAY  ••QUOTAS  RI 
CASE  HCNTE  *'11' 
a  12,4  SAY  '’DEC'' 

9  14.4  SAY  ST  R  (Q  D  EC  ,  3) 

S 1C  EE  (Q  EEC)  TO  MSUM 
a  1 6.L  siv  In  tot  it  m 


AY  "A  TOTAL  OF  • 
SAY  STR(HSUM.3) 
SAY  "QUOTAS  REMi 


i-19  SAY  » QU' 
HCNTE  s'11' 


FOR  THE  CURRENT  YEAR." 


QUOTAS  EQUAL  NUMBER 


CURRENT  YEAR." 

:  IN  CALENDAR  YEAR" 


a  16,4  SAY  ''A  TOTAL  OF  " 

®  16,15  SAY  STR  ( M  S  OM, 3) 

d  16,19  SAY  "QUOTAS  REMAIN  FOR  THE  CURRENT  Y 
CASE  MONTH  *« 1 2* 

a  14,10  SAT  "THIS  IS  THE  LAST  MONTI*  IN  CALEN: 
ENDCASE 
10  CASE 

CASE  (MS OM  *  MLEPT) 

a  18,4  SAY  "REMAINING  QUOTAS  EQUAL  NUMBER 
LEFT  1C  QUALIFY.." 

2  ie,64  SAY  STR  (ES0M,3  ) 
case  (Slept  >  msumi 

a  18,4  SAY  "YOU  NEED  " 

STORE  (MLEPT  -  MS0M)  TO  NEEDED 

2  ie,13  SAY  STR  (NEEDED  ,  3) 

a  16,19  SAY  "MORE  QUOTAS  FOR  THE  YEAR." 
CASE  (MSUM  >  MLEPT) 

3  ie,4  SAY  "YOU  EAVE  " 

STORE  (MSUM  -  MIEFT)  TC  EXTRA 
a  18,13  SAY  STR  (EXTRA.  3) 

3  18,18  SAY  "EXTEA  QUOTAS." 

FNDCASE 

3  19,1  SAY  "SELECT  ONE" 

a  20,1  S1Y  "A.  ..CHANGE  QUOTAS  ON  SCRATCH  PAD" 

3  21,1  SAY  "B.. .RETURN  TO  STANCABD  REPORT  MENU" 

a  22,0 

ACCEPT  "SELECT  OPTION  =**=>  «  TC  MHATI? 

IF  1  (WBA1IE)  *  •  A' 

DO  B:QOOTAPAD 


MARINES  ; 


YEAR." 


INDIE 


B:QOOTAPAD 


RELEASE  MCNTH.WH ATIF . EXTRA,  NEECE D, MSOM, ML EFT, TOT  A LRE C , R EL N A 
RELEASE  ALL  LIKE  Q??? 

RETOBS 
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1.  QUOTA  SCBATCB  PIE  BOOTI BE 


*  ROUTINE  NAME:  QUOTAPAD.PRG 

*  MODULE  NAME;  STANDARD  REPORT  GENERATOR 

*  VERSION:  5.6  .2  .1  .  0 

*  AUTECR:  F.E.  PRUIETT 

*  DATE:  5DEC83 

*  V AFIAE1ES  OSED:  MLEFT,  MUNIT 

*  VARIABLES  MODIFIED: 

*  V A E I1EIES  CREATED:  PICKMNTB,  TEMPSUM,  WHICHWAY,  CONTINUE, 

*  OFEE.  .  .ODBC,  EXTRA 

*  VARIABLES  RELEASED:  £???,  MLIFT ,  TEMPSUM,  WHICHWAY, 

*  PICKMNTU,  CONTINUE.  EXTRA 

*  PILES  (OFENED/CLOSEE)  :  NONE 

*  TEME  EILIS  CREATED:  NONE 

*  USING  SUBROUTINES:  CTASTU  DY.  ERG 

*  DESCRIPTION:  IRIS  MODULE  GIVES  THE  USER  AN  OPPORTUNITY  TO 

*  IN IER- ACTIVELY  MODIFY  THE  REMAINING  MONTHLY  RANGE 

*  QUOTAS.  THIS  CAN  EE  DONE  AN  UNLIMITED  NUMBER  OF  TIMES 

*  EACH  TIME  RETURNING  TO  THE  ACTUAL  MONTHLY  ALLOCATION  AS 

*  BASE  EATA.  HOWEVER,  IF  THE  USER  ELECTS  TO  PERMANENTLY 

*  REPLACE  TEE  MONTHLY  QUOTA  ALLOCATION  IN  MEMORY,  HE  MAY  DO 

*  SO  EY  SELECTING  THE  ^REPLACE  CURRENT  QUOTAS*  OPTION. 


STORE  T  TC  PIC  KM  NTH 
SET  CCLCN  OEF 

DO  CASE 

CASE  MCNTE  =*01* 

DO  SHILE  PICKMNTH  =  T 
LO  CASE 

CASE  !  (MUNIT)  *  *A* 

RESTORE  FRCM  A: ARNGQTAS  ADDITIVE 
CASE  J  (MUNIT)  =  *B* 

RESTORE  FRCM  A: BRNGQTAS  ADDITIVE 
CASE  !  (MUNIT)  =  *C* 

RESTORE  FROM  A;CRNGQ1AS  ADDITIVE 
CASE  !  (MUNIT)  =  *D* 

RESTORE  FRCM  A:D  RNGQIAS  ADDITIVE 
CASE  1  (MONIT)  *  ' E ' 

RESTORE  FRCM  A: B  NRNGQTA  ADDITIVE 
ENCCASE 
ERASE 

3  2,15  SAY  "FIFLE  RANGE  QUOTA  SCRATCH  PAD" 

3  4,5  SAY  "SPACE  BELOW  THIS  LINE  IS  FOR; 
CALCULATIONS  AND  WILL  EE  SAVED" 
a  5.5  SAY  " 0 F I Y  IF  YOU  SPECIFY  THE  ’REPLACE; 
CURRENT  QUOTAS*  OPTION  " 

3  6,0  SAY  '»***********♦******************; 
4**4  ******  **44**  *********  **<i 

a  8,5  SAY  "PEE  MAR  APR  MAY  JU N  JOL ; 
AUG  SEP  CCT  NOV  DEC" 


a 

1  0,4 

SET  QE  EE 

PICTURE  ’ 

999* 

a 

10,10 

GET 

OMAR 

PICTURE 

•  999' 

a 

10,16 

GET 

;  APR 

PICTUFE 

*999  ' 

a 

10,22 

GET 

:mai 

PICTURE 

*  9  99* 

a 

10,28 

GET 

COON 

PI  CTUFE 

*9  99  • 

a 

10,34 

GET 

:uul 

PICTURE 

19991 

a 

1  0,4  0 

GET 

CAUG 

PICTURE 

.999. 

a 

10,46 

GET 

:sep 

PICTURE 

'  999’ 

a 

10,52 

GET 

C  CCT 

PICTUFE 

.999  . 

a 

10,58 

GET 

:nov 

PICTURE 

•  999  • 

a 

1  0,64 

GET 

CEEC 

PICTUFE 

•999  * 

REAL 

a  12,4  SAY  "A  TOTAL  OF  " 

STORE  (QFEB  +  QMAR+QAPR  +  QMAY  +  QJUN  +  QJUL*  ; 
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I 


CAUG+QSEF+QOCT+QNOV ♦QDEC)  TO  TEMPSOM 
a  12,15  SAY  SIR  (TE  M  PSU  M ,  3) 

a  12,19  SAY  "Q  COTA S  REMAIN  FOR  THE  CURRENT  YEAR." 

DC  CASE 

CASE  (TEMPSUM  =  M  LEFT) 

3  14, a  SAY  "QUCTAS  EQUAL  NUMBER  OF  MARINES; 

LEFT  TO  CUALIF  Y. . 

3  14,53  SAY  ST  R  (T E  SPSU  M,  3) 

CASE  (MLEFT  >  TEMFSUM) 

3  14,4  SAY  "YOU  NEED  " 

STORE  (MLEFT  -  IEBPSUB)  TO  NEEDED 
5  14,13  SAY  ST  R  (NEEDED, 3) 
a  14,19  SAY  "MORE  QUOTAS." 

CASE  (TEMPSUM  >  MLEFT) 

3  14,4  SAY  "YOU  HAVE  " 

STORE  (TEMPSUM  -  MLEFT)  TO  EXTRA 
a  14,13  SAY  STR(£IIRA,3) 
a  14,18  SAY  "EXCESS  QUOTAS." 

ENDCAS  E 

a  15,24  SAY  "SEIECT  ONE  OPTION" 

a  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 
a  17,18  SAY  "E... RETURN  TO  STANDARD  REPORT; 

SELECTION  MENU" 

a  18,18  SAY  "C.. .PERMANENTLY  REPLACE  ORIGINAL  QUCTAS" 
ACCEPT  "SELECT  CNE  =  =  =>  "  TO  WHICHWAY 

DC  CASE 

CASE  l(HHICRHAY)  =  »B' 

STORE  F  TC  PICK  B NT  B 
CASE  l(WHICEWAY)  *  'C« 

ACCEPT  "DC  YOU  WANT  TO  PERMANENTLY  REPLACE  THE; 
ORIGINAL  SET  OF  QUOTAS  (Y/N)?";  TO  CONTINUE 
IF  CONTINUE 
DO  CASE 

CASE  !  (MU  NIT)  *  '  A' 

SAVE  TO  A : AR NGQTAS  ALL  LIKE  Q??? 

CASE  l  (MU  NIT)  =  *  B' 

SAVE  TO  A : BRNGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT '  =  'C' 

SAVE  TO  A ; CR NGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT)  =  'D* 

SAVE  TC  A ;  DRNGQT  AS  ALL  LIKE  Q??? 

CASE  !  (MUNIT)  =  *5' 

SAVE  TC  A  :  ENENGQT A  ALL  LIKE  Q??? 
ENDCASE 

STORE  E  TO  PICKMNTH 
ELS  E 

STORE  F  TO  PICKMNTH 
ENDIF 
ENDCASE 

ENDDC 

CASE  MCNTH  ='02’ 

DO  WHILE  PICKMNTH  =  T 
DO  CASE 

f»cs  !  fMlINTTl  a 

RESTORE  FBCH  A;  APNGQT  AS  ADDITIVE 
CASE  !  (  H  UN  IT )  *  'B* 

RESTORE  FFCM  AjBRNGQTAS  ADDITIVE 
CASE  ! (MUNIT)  *  'C» 

RESTORE  FROM  A  :CFNGQT  AS  ADDITIVE 
CASE  I(MUNIT)  =  'D' 

RESTORE  FFCM  A  :  D  R  NG  QT  AS  ADDITIVE 
CASE  1  (MUNIT)  =  •£• 

RESTORE  FROM  A:BNRNGQTA  ADDITIVE 
ENDCAS E 


14  1 


ERASE 

a  2,15  SAY  "  PIFLE  RANGE  QUOTA  SCRATCH  PAD" 

2  4,5  SAY  "SEACE  BELCW  THIS  LINE  IS  FOR; 
CALCULATIONS  AND  WILL  EE  SAVED" 

2  5,5  SAY  "OH!  IF  YCU  SFECIFY  THE  'REPLACE; 
CURRENT  QUOTAS'  OPTION  " 

2  6,0  SAY  '•  *********************************  ; 

*  4  **********  *  *  **********  <i 

2  8,5  SAY  "  MAR  APR  MAY  JUN  JUL; 

AUG  SEP  CCT  NCV  DEC" 


1C, 10  GET  CHAR  PICTURE 
10,16  GET  CAPR  PICTURE 
10,22  GET  C EA Y  PICTURE 
10,28  GET  CJON  PICTURE 
10,34  GET  QOUL  PICTUFE 
10,40  GET  CAUG  PICTURE 
1  0,46  GET  CSEP  PICTURE 
10,52  GET  CCCT  PICTURE 
10,58  GET  QNCV  PICTURE 
10,64  GET  Q DEC  PICTURE 


a 
a 
a 
a 
a 
a 
a 
a 
a 
a 

READ' 


•999« 

•  99S» 
•999' 
•999* 
•999  ' 
•999' 
•999  • 

•  999. 

•999  * 
•999' 


3  12,4  SAY  "A  TOTAL  OF 
ST  C  RE  (QBAB*QAER*QMAY+CJON*QJUI 
QAUG+QS  EP*Q0CT*QN0V4QDEC)  TO  TE 
SIRjTEMPSOM,  3) 
"QUOTAS  REMAIN 


EMPSCM 


a 


1 1,  i  d 

1  2,1  9 


SAY 


FOR  THE  CURRENT  YEAR." 


DO  CASE 

CASE  (TE  MPSOM  =  MLEFT) 

2  14,4  SAY  "QUOTAS  EQUAL  NUMBER  OF  MARINES; 
LEFT  TO  QUALIFY.  .  ." 
a  14.53  SAY  ST  R  (T  E  MPSU  M,  3) 

CASE  (MLEFT  >  TEMPSUM) 

9  14,4  SAY  "YOU  NEED  " 

STORE  ( MLEFT  -  TEMPSUM)  TO  NEEDED 
S  14,13  SAY  STB  (NEEDED, 3) 
a  14,19  SAY  "MORE  QUOTAS." 

CASE  (TE  MPSUK  >  MLEFT) 

a  14,4  SAY  "YOU  HAVE  " 

STORE  (TEMPSUM  -  MLEFT)  TO  ELTRA 
a  14,13  SAY  STR  (EXTRA,  3) 

2  14,18  SAY  "EXCESS  QUOTAS.." 

ENCCAS  E 

15,24  SAY  "SELECT  ONE  OPTION" 

16.18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 

17.18  SAY  "E.. .RETURN  TO  STANDARD  REPORT; 
ELECTION  MENU" 

18.18  SAY  "C.. . PERMANENTLY  REPLACE  ORIGINAL; 

UCT  AS" 

CCEPT  "SELECT  CNE  ===>  "  TO  WHICHWAY 


DO  CASE 

CASE  !  (WHICHWAY)  =  *B' 

STORE  F  TC  PICKMNTH 
CASE  !  (WHICHWAY)  =  'C  ' 

ACCEPT  "DC  YOU  WANT  TO  PERMANENTLY  REPLACE 
ORIGINAL  SET  OP  Q-'CTAS  (Y/N)?"  TO  CONTINUE 
IF  CONTINUE 
DO  CASF 

CASE  !  (MU  NIT)  =  •  A' 

SAVE  TO  A : ARNGQTAS 
CASE  !  (MU  NIT )  =  •  &• 

SAVE  TO  A; BRNGQTAS 
CASE  !  (KU  N  IT  )  =  '  C' 

SAVE  TC  A : CR NGQTAS 
CASE  !  (MU  NIT)  =  •  D' 

SAVE  TO  A : DR  NGQTAS 


THE; 


ALL 

ALL 

ALL 

ALL 


LIKE 

LIKE 

LIKE 

LIKE 


Q??? 

Q??? 

Q??? 

Q??? 
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CASE  !  (MU  HIT)  »  '  E' 

SAVE  TO  A : BNRNGQTA  ALL  LIKE 
ENDCASE 

STORE  F  TO  P ICK  CRT  H 
ELSE 

STORE  F  TO  P1CKMNTH 


ENDIF 

ENECASE 


0??? 


EREEO 

CASE  MCRTH  ='03‘ 

CO  WHILE  PICKMNTE  *  T 
DO  CASE 

CASE  !  (M  ON  IT)  =  'A* 

RESTORE  FBCM  A:  A  RRGCT  AS  ADDITIVE 
CASE  !  (MUNIT1  *  'B* 

RESTORE  PECH  A:B  RRGCT  AS  ADDITIVE 
CASE  !  (MUNIT)  =  »C« 

RESTORE  PECH  A :  C  RNG  QT  AS  ADDITIVE 
CASE  ! (MUN IT)  =  * D ' 

RESTORE  PECH  A  :  D  RRGCT  AS  ADDITIVE 
CASE  !  { M  UN  IT)  *  'E' 

RESTORE  PECH  A:  3  RRRGCT  A  ADDITIVE 
INCCASE 
ERASE 

a  2,15  SAY  "RIFLE  RANGE  QUOTA  SCRATCH  PAD" 

2  4.5  SAY  "SPACE  BELOW  THIS  LINE  IS  FOR; 
CALCULATIONS  AND  WILL  BE  SAVED" 

a  5,5  SAY  "OFIY  IF  YOU  SPECIFY  THE  'REPLACE; 
CURRENT  QUOTAS’  OPTION  " 

3  6,0  SAY  •»♦******♦ ************************* ; 
*  *  *  A*********  ******  *****11 

a  8,5  SAY  "  APR  MAY  JUN  JUL; 

AUG  SEP  CCT  NCV  DEC" 

2  10,16  GET  CAPR  PICTURE  '999  * 

£  10,22  GET  CMAY  PICTURE  *999* 

S  10,28  GET  CJUN  PICTUFE  ‘999’ 

3  10,34  GET  C  JUL  PICTURE  »999‘ 
a  10,40  GET  CAUG  PICTURE  *999' 

3  10,46  GET  CSEP  PICTURE  '999* 
a  10,52  GET  CCCT  PICTUFE  '999  ' 

3  10,58  GET  C  NO  V  FICTURE  '999' 
a  10,64  GET  CCEC  PICTURE  »999  ' 

BEAD 


£  12,4 

STORE 


TOTAL 


$A0G*^JS 
1  12*19 


<QAPR*CMAY«-QJ  UN* 
SEE+QOCT  +  CNOV+QE 
5  SAY  SIR  (TE  M  ESU 


JUL*; 
Cl  TO 


STR  (TEMESUM.3) 
"CDOTAS  REMAIN 


TEMPSUM 

R  THE  CURRENT  YEAR 


DC  CASE 

CASE  (TEMPSUM  =  MLEFI) 

a  14,4  SAY  "QU  CT  AS  EQUAL  NUMBER  OF  MARINES 
LEFT  TO  CUALIPY..  .» 
a  14.53  SAY  ST  E  (T  E  E FSU  M,  3) 

CASE  (MLEP1  >  TEMPSUM) 
a  i 4 , 4  say  "YOU  NEED  " 

STORE  (MIEFT  -  TEMPSUM)  TO  NEEDED 
5  14,13  SAY  ST  R  (NEEDED, 3) 
a  14,19  SAY  "MORE  QUOTAS." 

CASE  (TEMPSUM  >  M LEFT) 

3  14,4  SAY  "YOU  HAVE  " 

STORE  (TEMPSUM  -  MLEFT)  TO  EXTRA 
a  14,13  SAY  STR  (EXTRA,  3) 
a  14,13  SAY  "EXCESS  QUOTAS." 

ENDCASE 


a  15,24  SAY  "SELECT  ONE  OPTION" 

3  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 

8  17,18  SAT  "E.. .RETURN  TO  STANDARD  REPORT; 
SELECIION  MEND" 

3  18.18  SAY  "C... PERMANENTLY  REPLACE  0 8IGIN AL  ; 
QUOTAS" 

ACCEPT  "SELECT  ONE  ===>  "  TO  WHICHWAY 
EO  CASE 

CASE  !  (WHICESAY)  =  'B' 

STORE  F  TO  PICKMNTB 
CASE  !  (WHICHWAY)  =  'C* 

ACCEPT  "EC  YOU  WANT  TO  PERMANENTLY  REPLACE  TH 
ORIGINAL  SET  OF  QUOTAS  (Y/N)  ?"  TO  CONTINUE 
IF  CCNTIBUE 
DO  CASE 


CASE  l  (MU  NIT)  =  '  A' 

SAVE  TO  A : ARNGQT AS  ALL  LIKE  Q??? 
CASE  !  (MU  NIT)  =  '  B' 

SAVE  TO  A : BRNGQTAS  ALL  LIKE  Q??? 
CASE  !  (MU  NIT)  =  •  C* 

SAVE  TO  A-.CRNGQTAS  ALL  LIKE  Q??? 
CASE  J  (MU  NIT)  =  •  D* 

SAVE  TO  AjDRNGQTAS  ALL  LIKE  Q??? 
CASE  !  (MU  NIT )  =  •  £' 

SAVE  TO  A : BNRNGQTA  ALL  LIKE  Q??? 
ENDCASE 

STORE  E  TO  PICKBNTH 
ELSE 

STORE  E  TO  PICKHNTH 
ENDIF 
ENECASE 


ENDDC 


CASE  MCNTE  =’04' 

DO  WHILE  PICKHNTH  =  T 
10  CASE 

CASE  1 (MUNIT)  = 

RESTORE  Pf CM 
CASE  !  (MUNIT)  = 

RESTORE  FROM 
CASE  ! (MUNIT)  = 

RESTORE  FROM 
CASE  ! (MUNIT)  = 

RESTORE  FfcCM 
CASE  ! (MUNIT)  = 

RESTORE  FROM 
ENDCASE 
ERASE 

a  2,15  SAY  "RIFLE  RANGE  QUOTA  SCRATCH  PAD" 

3  4,5  SAY  "SPACE  BELOW  THIS  LINE  IS  FOR; 
CALCULATIONS  AND  WILL  EE  SAVED" 

3  5.5  SAY  "ONLY  IF  YOU  SPECIFY  THE  ‘REPLACE; 
CURRENT  QUOTAS'  OPTION  " 

3  6,0  SAY  " ********************************* 

**********  **444*********  •' 


'A' 

A ; ARNGQT AS 

‘  B ' 

A :  D  RNGQTAS 

'  C‘ 

A:CRNGQTAS 

'  D ' 

A:DRNGQTAS 
'  E ' 

A:  B  NRNGQT  A 


ADDITIVE 

ADDITIVE 

ADDITIVE 

ADDITIVE 

ADDITIVE 


2  8,5  SAY 
AUG  SEP 
2  10,22 
10,28 
10,34 
10,40 
1  0,46 
10,52 
1  0,5  8 
10,64 


CCT 


NOV 


DEC' 


MAY 


JUN 


JUL; 


READ 


GET 

CRAY 

PICTUFE 

•999  » 

GET 

QUON 

PICTURE 

•999' 

GET 

COOL 

PICTURE 

•999  ' 

GET 

QAUG 

PICTURE 

•  999' 

GET 

CSEP 

PI CTUPE 

•999  • 

GET 

CCCT 

PICTUFE 

•999* 

GET 

QNCV 

PICTURE 

•999  • 

GET 

QDEC 

PICTURE 

•  999' 
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a  12,4  S  AY  "A  TOTAL  OF  " 

STORE  (OMAY+CJUN+QJ 0L+ ; 

CAOG+QSE  P+QOCT  +  QNOV  +CDEC)  TO  TEMPSUM 
3  12,15  SAY  STB  (TEMPSUM,  3) 

a  12,19  SAY  "QUOTAS  REMAIN  FOR  THE  CURRENT  YEAR." 
DC  C  AS  E 

CASE  (TEMPSUM  =  N  LEFT) 

2)  14,4  SAY  "QUOTAS  EQUAL  NUMBER  OF  MARINES; 
LEFT  TO  QUALIFY. . 

3  14.53  SAY  ST  R  (T  E  EPSO  M,  3) 

CASE  ( MLEFT  >  TEMPSUK) 

3  14,4  SAY  "YOU  NEED  " 

STORE  ( MLEFT  -  TEMPSUM)  TO  NEEDED 
a  14,13  SAY  ST  B  (NEEDED, 3) 
a  14,19  SAY  "MORE  QUOTAS." 

CASE  (TEMPSUK  >  MLEFT) 
a  14,4  SAY  "YOU  HAVE  " 

STORE  (TEMPSUH  -  MLEFT)  TO  EXTRA 
a  14,13  SAY  ST  B  (EXTRA,  3) 
a  14,18  SAY  "EXCESS  QUOTAS." 

ENDCASE 

d  15,24  SAY  "SELECT  ONE  OPTION" 

a  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 

a  17,18  SAY  "E... RETURN  TO  STANDARD  REFORT; 

SELECTION  MENU" 

a  18,18  SAY  "C.. . PERKANENTLY  REPLACE  ORIGINAL; 

QUOTAS" 

ACCEPT  "SELECT  CNE  ==  =  >  •'  TO  WHICHWAY 

LO  C  A  c E 

CASE  !  (WHICHWAY)  =  '  B  * 

STORE  F  1C  PICKMNTH 
CASE  !  (WHICHWAY)  =  'C' 

^ACCEPT  "EC  YOU  WANT  TO  PERMANENTLY  REPLACE  THE 
ORIGINAL  SET  OF  QUOTAS  (Y/N)?»  TO  CONTINUE 
IF  CGNTIBOE 

DO  CASE 

CASE  !  (MUNIT)  *  •  A' 

SAVE  TO  A : AR NGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT )  =  '  B1 

SAVE  TO  A ; 3RNGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT )  =  '  C* 

SAVE  TO  A : CRNGQTAS  ALL  LIKE  Q??? 

CASE  !  (MUNIT)  =  '  D' 

SAVi  TO  A : DR  NGQTAS  ALL  LIKE  Q??? 

CASE  !  (MUNIT)  =  •  E' 

SAVE  TO  A :  BNRNGQTA  ALL  LIKE  Q??? 

ENDCASE 

STORE  f  TO  PICKMNTH 
ELSE 

STORE  E  TO  PICKMNTH 
ENDIF 
ENCCASE 

ENCDC 

CASE  MCNTF.  ='05' 

DC  WHILE  PICKMNTH  =  T 
£C  CASE 

CASE  •  (MUNIT)  =  'A' 

RESTORE  FROM  A : A  RNGQT  AS  ADDITIVE 
CASE  ’  (MUNIT)  =  'B' 

RESTORE  FROM  A : B RNGQTAS  ADDITIVE 
CASE  !  (MUNIT)  =  'C' 

RESTORE  FROM  A:CPNGQTAS  ADDITIVE 
CASE  !  (MUNIT)  =  'D' 

RESTORE  FROM  A : D  RNGQT  A  S  ADDITIVE 


CASE  !  (MUNIT)  =  • E * 

FESTORE  FECM  A:  B  NF.NGQTA  ADDITIVE 
ENDCASE 
ERASE 

a  2,15  SAY  "FIFLE  RANGE  QUOTA  SCRATCH  PAD" 

2  4,5  SAY  "SFACE  BELOW  THIS  LIRE  IS  FOR; 
CALCULATIONS  AND  WILL  EE  SAVED" 

3  5.5  SAY  "OF1Y  IF  YCU  SPECIFY  THE  ‘REPLACE; 
CURRENT  QUOTAS1  0°T  TON  " 

2  6,0  SAY  "***************♦********+********; 
******  *******  *  ♦  ********♦»• 

3  8,5  SAY  "  JUN  JUL; 

AUG  SEP  CCT  NOV  DEC" 

3  10,28  GET  QOUN  PICTURE  '999' 

3  10,34  GET  C  JUL  PICTURE  '999* 

2  10,40  GET  CAUG  PICTURE  '9991 

3  10,46  GET  C SEP  PICTURE  *999' 
a  10,52  GET  C CCT  PICTURE  '999  ' 
a  10,58  GET  QNCV  PICTURE  '999’ 

2  10,64  GET  QCEC  PICTUFE  ‘999  1 
READ 


3  12,4 

STORE 


SAY  "A  TOTAL  OF  •• 


caug+-qJ§p+qo£t+qn6v ♦QDECi  to  tempsum 
a  12,15  SAY  STR  (TEMFSU  H,3) 
a  12,19  SAY  "QUOTAS  REMAIN  FOR  THE  CUR 


JUN+CJUL+: 


CURRENT  YEAR." 


DC  CASE 

CASE  (TEMPSUM  =  MLEFT) 

3  14,4  SAY  "QU  CT  AS  EQUAL  NUMBER  OF  MARINES; 
LEFT  TO  QUALIFY.  . 

3  14,53  SAY  STB  (TEMPSUM,  3) 

CASE  (MLEFT  >  TEMPSUM) 

a  14,4  SAY  "YOU  NEED  « 

STORE  ( MLEFT  -  TEMPSUM)  TO  NEEDED 
a  1 4,1  3  SAY  ST  B  (NEEDED. 3) 
a  14,19  SAY  "MORE  QUOTAS." 

CASE  (TEMPSUM  >  MLEFT) 
a  14, 4  SAY  "YO  0  HAVE  " 

STORE  (TEMPSUM  -  MLEFT)  TO  EXTRA 
a  14,13  SAY  ST R  (E XTR  A ,  3) 

3  14,18  SAY  "EXCESS  QUOTAS." 

ENDCAS  E 


3  15,24  SAY  "SE1ECT  ONE  CPTION" 

3  16,18  SAY  "A. ..START  AGAIN  WI.  ,  ORIGINAL  QUOTAS" 

3  17,18  SAY  "E... RETURN  TO  STANDARD  REPORT; 

SELECTION  MENU" 

a  18,18  SAY  "C..  .  PERMANENTLY  REPLACE  ORIGINAL  QUOTAS" 
ACCEPT  "SELECT  CNE  ===>  "  TO  WHICHWAY 


DC  CACE 

CASE  1  (WHICEWAY)  =  »B' 

STORE  F  TC  PICK  MNT  H 
CASE  !  ( WH IC  E  WAY)  =  *C' 

ACCEPT  "DC  YOU  WANT  TO 
ORIGINAL  SET  OF  QUOTAS 
IF  CONTINUE 
DO  CASE 

CASE  (MU  NIT)  =  *  A' 
SAVE  TC  A : ARNGQTAS 
CASE  !  (MU  NIT )  =  '  B' 
SAVE  TO  A : 3R  NGQTAS 
CASE  !  (MU  NIT  )  =  1  C1 
SA Vi  TO  A : CR NGQTAS 
CASE  !  (MO  NIT)  =  '  D1 
SAVE  TC  A :DRNGQTAS 
CASE  !  (HO  NIT)  =  '  E' 


PERMANENTLY  REPLACE  THE; 
(Y/N)  ?"  TO  CONTINUE 


ALL 

LIKE 

Q??? 

ALL 

LIKE 

Q??? 

ALL 

LIKE 

Q??? 

ALL 

LIKE 

Q??? 
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SAVE  TC  AsBNBNGQTA  ALL  LIKE  Q??? 
ENDCASE 

STORE  F  TO  PICKBNTH 
ELS  E 

STORE  F  TO  PICKMNTH 
ENDIF 
ENDCASE 


or 


it)  EEC 

CASE  MCNTH  *'06* 

EC  WHILE  PICKS!) 
DO  CASE 

CASE  IfSUNIT 
RESTORE  P 
CASE  J  ( M  UN  IT 
RESTORE  F 
CASE  !  { S  ON  IT 
RESTORE  F 
CASE  !  { M  ON  IT 
RESTORE  F 
CASE  IfHONIT 
RESTO  E®  F 
INtCAS  c 
ERASE 

a  2,15  SAY  “ 
2  4,5  SAY  "S 
CALCULATIONS 
J  5,5  SAY  "0 
CURRENT  00 OT 
2  6,0  SAY  "* 
*** ******* ** 
a  8,5  SAY  » 
AOG  SEP 
a  10,34  GET 
a  10,40 
5  10,46 
a  10*5  2 
a  10,58 
a  io,64 


TH  *  T 

>  „  «AI 

ECS  AiARNGQTAS  ADDITIVE 
)  =  '  B' 

ECS  A:BRNGCTAS  ADDITIVE 
)  =  'C* 

ECS  A  :C  RNG  CT  AS  ADDITIVE 
)  =  '  D ' 

PCM  AiDRNGQTAS  ADDITIVE 
\  —  •  E  • 

ECS  A:  B  tiBNGQT  A  ADDITIVE 


RIFLE  RANGE  OL'/IA  SCRATCH  PAD" 
EACE  BEICW  T BIS  LINE  IS  FOR; 

AND  HILL  BE  SAVED" 

MY  IF  TOO  ‘SPECIFY  THE  'REPLACE; 
A  S'  OPTION  " 

4+**+* ************************** 

44444**  ******* 


BEAD 


NOV  DEC" 
PICTORE  '999  ' 
PICTURE 
PICTOEE 
PICTURE 
PICTURE 
PICTURE 


JUL; 


» 9  99 ' 
•999* 
•999' 
•999  • 
•999* 


3  12,4 
STORE 


SAY  "A  TOTAL  OF  '» 
(Q JUL*  : 
CAUG*QSEP*QOCT*QNOV  +QDEC 
a  12,15  SAY  STRTtEMPSUM 
3  12,19  SAY  "QUOTAS 


)  TO 
SOM. 3) 
REMAIN 


TEHFSUM 


FOR  THE  CURRENT  YEAR 


10  CASE 

CASE  (TEMPSUM  =  S  LEFT) 

a  14,4  SAY  "QUOTAS  EQUAL 
LEFT  TO  QUALIFY. . . " 

3  14.53  SAY  STB  (TE  BPSUM,  3) 

CASE  ( ML  EFT  >  TEMPSUM) 

a  14,4  SAY  "YOU  NEED  " 
STORE  ( M1EFT  -  TEMPSUM)  TO 
a  1  4,1  3  SAY  STB  (NEEDED, 3) 

8  14,19  SAY  "MORE  QUOTAS.” 

CASE  (TEMPSUM  >  a  LEFT) 

i  14,4  SAY  "YOU  HAVE  " 
STORE  (TEMPSUM  -  BLEFT)  TO 
a  14,  1  3  SAY  STR  [EXTRA,  3) 


NUMBER  OF  MARINES 


NEEDED 


EXTRA 


a  14,18  SAY  "E XCESS 


ENDCAS  E 


'q5o!t 


AS, 


3  15,24  SAY  "SEILCT  ONE  CFTION" 

3  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 
2  17,18  SAY  "E... RETURN  TO  STANDARD  REPORT; 
SELECTION  MENU" 
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3  18,18  SAX  "  C . .  .  PER  K  AN  ENT  LY  REPLACE  ORIGINAL  QUOTAS" 
ACCEPT  "SELECT  ONE  ==*>  "  TO  WHICHWAY 

EC  C A CE 

CASE  MWHICEMAY)  =  'B' 

STORE  r  TC  PICK  b  NT  H 
CASE  !(WHICEWAY)  *  'C 

ACCEFT  "DC  YOU  WANT  TO  PERMANENTLY  REPLACE  THE; 
ORIGINAL  SET  OF  QUOTAS  (Y/N)?";  TO  CONTINUE 
IF  CONTINUE 
CO  CASE 

CASE  !  (MU  NIT )  =  'A' 

SAVE  TO  A : ARNGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT )  =  '  B’ 

SAVE  TO  A ; BRNGQTAS  ALL  LIKE  Q??7 
CASE  !  (MO  NIT )  =  'C* 

SAVE  TO  A :CRNGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT)  =  •  D' 

SAVE  TC  A ; DRNGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT )  =  '  E' 

SAVE  TO  A : BNRNGQTA  ALL  LIKE  Q??? 
ENDCASE 

STORE  F  TO  P ICKMNTH 
ELSE 

STORE  E  TO  P ICKMNTH 
ESDI  F 
ENCC ASE 

ENCDO 

CASE  MCNTE  =  '  07‘ 

DO  WHILE  PICKMNTH  =  T 
CO  CASE 

CASE  !  (M  UN  IT  )  =  'A' 

EESTOFE  F PCM  A:ARNGQTAS  ADDITIVE 
CASE  ! (MUNIT)  *  'B* 

RESTORE  FSCM  A : B RNGQT AS  ADDITIVE 
CASE  I  (MUNIT)  =  «C' 

RESTORE  PBCH  A :CRNGQ1AS  ADDITIVE 
CASE  !  (MUNIT)  =  *D' 

RESTORE  FROM  A : DRNGQTAS  ADDITIVE 
CASE  ’ (MUNIT)  =  •£' 

RESTORE  FSCM  A;  B  NRNGQT  A  ADDITIVE 
ENDCASE 
ERASE 

3  2,15  SAY  "RIFLE  RANGE  QUOTA  SCRATCH  PAD" 

2  4,5  SAY  "SEACE  BELOW  THIS  LINE  IS  FOR; 
CALCULATIONS  AND  WILL  EE  SAVED" 

a  5,5  SAY  "0  MY  IF  YOU  SPECIFY  THE  'REPLACE; 

CURRENT  QUOTAS'  OPTION  " 

a  6,0  SAY  "*********************************; 

444***** 4* **4444**4 4*44*" 

3  8,5  SAY  "  : 

AUG  SEP  CCT  NOV  DEC" 

2  10,40  GET  Q  AUG  PICTURE  '999  ' 

2  10,46  GET  QSEP  PICTURE  '999' 
a  10,52  GET  QCCT  PICTURE  '999  ' 
a  10,58  GET  CNCV  PICTURE  '999* 
a  10,64  GET  QCEC  PICTURE  '9  39  ' 

FEAC 

3  12,4  SAY  "A  TOTAL  OF  •' 

STORE  IQ  AUG  +  QSEP+QOCT  +  QNO^QDSC)  TO  TEMPSUM 
a  12,15  SAY  STR  (TEMESUM,  3> 

3  12,19  SAY  "QUOTAS  REMAIN  FOR  THE  CURRENT  YEAR." 

DC  CASE 

CASE  (TEMPSUM  =  MLSFT) 

3  tu,4  SAY  "QUOTAS  EQUAL  NUMBER  OF  MARINES; 
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LEFT  TO  QUALIP Y.  . 

3  14,53  SAY  STR  (TEBPSUB,  3) 

CASE  fMLEFT  >  TEMPSOH) 

3  14,4  SAY  "YOO  NEED  " 

STORE  ( M  LEFT  -  TEHPSUM)  TO  NEEDED 
3  14,13  SAY  ST  S  (NEEDED, 3) 

3  14,19  SAY  "H ORE  QUOTAS." 

CASE  (TEMPSOH  >  M  LEFT) 

3  14,4  SAY  " YO U  HAVE  " 

STOFE  (TEBFSUM  -  HLEFT)  TO  EXTRA 
3  14,  13  SAY  ST  R  (E  XTR  A  ,  3) 

3  14,18  SAY  "EXCESS  QUOTAS." 

ENDCASE 

3  15,24  SAY  "SELECT  CNE  OPTION" 

3  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 

3  17.18  SAY  "E.. .RETURN  TO  STANDARD  REPORT; 

SELECTION  MENU" 

a  18,18  SAY  "C..  .  PER  EANENTLY  REPLACE  ORIGINAL  QUCTAS 

ACCEPT  "SELECT  CNE  =-->  "  TO  WHICH  WAY 


rn  r A cp 

CASE  1  (WHICEWAY)  =  '  ts  • 

STORE  F  TC  PICKHNTH 
CASE  I  (WHICFHAY)  =  'C* 

ACCEPT  "DC  YOU  WANT  TO  PERMANENTLY  REPLACE  THE; 
ORIGINAL  SET  OF  QUOTAS  (T/N)  ?»  ;  TO  CONTINUE 
IF  CONTINUE 
DO  CASE 

CASE  1  (HO  NIT)  =  *  A* 

SAVE  TC  A: ARNGQTAS  ALL  LIKE 
CASE  !  (HO  NIT )  =  1  B* 

SAVt  TO  A; BRNGQTAS  ALL  LIKE 
CASE  !  (HO  NIT)  =  •  C* 

SAVE  TO  A : CRNGQTAS  ALL  LIKE 
CASE  !  (MU  NIT)  *  '  D‘ 

SAVE  TO  A : DRNGQTAS  ALL  LIKE 
CASE  !  (MU  NIT)  =  1  E* 

SAVE  TO  A; BNRNGQTA  ALL  LIKE 
ENDCASE 

STORE  F  TO  PICKBNTH 
ELSE 

STORE  F  TO  P ICKMNTH 
END  I  F 
ENEC ASE 


Q??? 
Q??? 
Q??? 
Q?7? 
Q  ??? 


2NDDC 


CASE 

MC  NT  E  = 

*  0  8* 

DC 

SRI  IE 

PICKBNTH  - 

T 

rc 

CASE 
CASE  ! 

JMUl’IT )  = 

•A’ 

FES 

TORE  FROM 

A: A  RNGQT AS 

ADDITIVE 

CASE  ! 

(M  OMIT '  = 
TORE  FRCM 

•  B  * 

RES 

A:BENGQTAS 

ADDITIVE 

CASE  ! 

(MON  l'T)  = 

•c» 

FES 

TORE  FRca 

A :C  RNGQTA  S 

ADDITIVE 

CASE  ! 

(MONIT)  * 

•D* 

RESTORE  FFCM 

A : D  RNGQTA  S 

ADDITIVE 

CASE  ! 
EES 

(MONIT)  = 
TORE  FpCM 

*  E 1 

A:  3  NFNGQTA 

ADDITIVE 

ENDCASE 

ERASE 

®  2,15  SAY  "  RIFLE  RANGE  QUOTA  SCRATCH  PAD" 
a  4,5  SAY  "SPACE  3E LOW  THIS  LINE  IS  FOR; 
CALCULATIONS  AND  WILL  EE  SAVED" 

3  5,5  SAY  "ONLY  IF  YOU  SPECIFY  THE  ’REPLACE; 
CURRENT  QUOTAS’  OPTION  " 

3  6  ,0  SAY  " . 


************************11 

3  8,5  SAY  "  ; 

SEP  0C1  NCV  DEC" 
a  10,46  GET  CSEP  PICTUFE  *999' 
a  10,52  GET  QCCT  PICTURE  '999' 

5  10,58  GET  QNCV  PICTUFE  '999' 

3  10,64  GET  QEEC  PICTURE  '999' 

READ 

*  1  y  £1  c;  SY  "1  TOTH  OF  11 

STCRfe  (QSEP*CCCT*QNCV*QDEC)  TO  TEMPSUM 

a  12,15  SAY  SIR  (TEMFSOM.  3) 

a  12,19  SAY  "QUOTAS  REMAIN  FOR  THE  CURRENT  YEAR." 

DC  CASE 

CASE  (TEMPSUM  -  K  LEFT) 

3  14,4  SAY  "QUOTAS  EQUAL  NUMBER  OF  MARINES; 

LEFT  TO  QUALIFY..." 
a  14.53  SAY  STB  (TEEcoUM,  3) 

CASE  { SLEPT  >  TEMPSUM) 

a  14,4  SAY  "YOU  NEED  " 

STORE  (SLEPT  -  TEMPSUM)  TO  NEEDED 
a  14,13  SAY  ST  R  (NEEDED, 3) 
a  14,19  SAY  "MORE  QUOTAS." 

CASE  (TEMPSUM  >  M  LEFT) 

a  14, 4  SAY  "TO  0  HAVE  " 

STORE  (TEMPSUM  -  CLEFT)  TO  EXTRA 
£  14,  1  3  SAY  ST  R  (E  YTR  A  .  3) 
a  14,18  SAY  "EXCESS  QOOTAS." 

ENDCASE 

a  15,24  SAY  "SELECT  ONE  CPTION" 

a  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 

3  17.18  SAY  "E.. .RETURN  TO  STANDARD  REPORT; 

SELECTION  MENU" 

a  13,18  SAY  "C.. .PER CANENTLY  REPLACE  ORIGINAL  QUOTAS" 
ACCEFT  "SELECT  ONE  ==»>  "  TO  KHICHH&Y 


DO  CASE 

CASE  !  (WHICHNAY)  =  *B* 
STORE  F  TC  PICK  K NT  H 


CASE 


E  l  (WHICEHAY)  =  'C* 
ACCEPT  "DC  YOU  WANT 


...  .  TC 

QUOTAS 


ORIGINAL  SET  OF 
IF  CONTINUE 
DO  CASE 

CASE  !  (MU  NIT)  =  'A' 
SAVE  TC  A : ARNGQTAS 
CASE  !  (MU  NIT)  =  •  §• 
SAVE  TO  A ; B  R  NGQTAS 
CASE  1  (MU  NIT )  =  'C* 
SAVt  TO  A : CR NGQTAS 
CASE  !  (MU  NIT)  =  '  D' 
SAVE  TO  A ; DR  NGQTAS 
CASE  !  (MU  NIT )  =  'E* 
SAVE  TO  A ; B NRNGQTA 
ENDC ASE 

STORE  f  TO  P  ICKMNTH 
ELSE 

STORE  F  TO  P  ICKMNTH 
ENDI7 
ENUC ASE 

ENDDO 

CASE  MCMT  H  ='09* 

DO  WHILE  PICKMNTH  =  T 
EC  CASE 

CASE  ! (MUNIT)  =  'A' 


PERMANENTLY  REPLACE  THE; 
(Y/N) ?"  TO  CONTINUE 


ALL 

ALL 

ALL 

ALL 

ALL 


LIKE 

LIKE 

LIKE 

LIKE 

LIKE 


Q??? 
Q??  ? 
Q??? 
Q??7 
Q??  r 
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RESTORE  FECM  A:ARNGQTAS  ADDITIVE 
CAST  !  (MONIT)  =  •  B * 

RESTORE  FFCM  A : B  RNGQT  A  S  ADDITIVE 


RESTORE  FFCM  A : B  RNGQT  A  S  ADDITIVE 
CASE  !  (MUNIT)  =  'O' 

RESTORE  FFCM  A :C  RNGQTAS  ADDITIVE 
CASE  i  (MONIT)  =  *D* 

RESTORE  FFCM  A: DRNGQTAS  ADDITIVE 


RESTORE  FFCM  A: DRNGQTAS  ADDITIVE 
CASE  ! (MUNIT)  =  * E ' 

RESTORE  FFCM  AlBNFNGQIA  ADDITIVE 
ENDCASE 
IBASE 

2  2,15  SaY  "FIFLE  BANG  Ql  TA  SCRATCH  PAD" 

3  4.5  SAY  "SPACE  BELOW  "HI  G  LINE  IS  FOR; 
CALCULATIO  NS  AND  HILL  E-  SAVED" 

a  5,5  SAY  "0  MY  IF  YOD  SPECIFY  THE  'REPLACE; 
CURRENT  QUOTAS'  OPTION  " 

3  6,0  SAY  *********************************** 
*******************  ******* 

a  8,5  SAY  "  ; 

CCT  NOV  I  EC" 

5  1C, 52  GET  QCCT  PICTURE  *999* 
a  10,58  GET  QNOV  PICTURE  '999* 
a  10,64  GET  QCEC  PICTURE  '999  ' 

EE  A  C 


12,4  SAY  "1  TOTAL  OF  « 


u  ^  a  i.  c  i  u  i  ai/  v>  * 

STORE  (QOCT*  C NO V  +QD  EC)  TO  TEMPSUM 
2  12,15  SAY  STB  (TEMESUM.  3) 
a  12,19  SAY  "QUOTAS  REMAIN  FOR  THE 


E  CURRENT  YEAR." 


10  CASE 

CASE  (TEMPSUM  =  M  LEFT) 

«  14,  a  SAY  "QUOTAS  EQUAL  NUMBER  OF  MARINES; 

LEPI  TO  QUALIFY.  . 
a  14,52  SAY  STB  (TEMESUM,  3) 

CASE  (MLEFT  >  TEMPSUM) 

3  14,4  SAY  "YOU  NE&D  " 

STORE  f  Ml  EFT  -  TEMPSUM)  TO  NEEDED 
a  14,  lj  SAY  STR  (NEEDED, 3) 
a  14,19  SAY  "MORE  QUOTAS." 

CASE  (TEMPSUM  >  MLEFT  f 
a  14,4  SAY  ''YOU  HAVE  " 

STORE  (TEMPS 0TM  -  MLEFT)  TO  EXTRA 
a  1  4,  1  3  SAY  STR  (.EXTRA.  3) 
a  14,18  SAY  "EXCESS  QUOTAS." 

ENECASE 

a  15,24  SAY  "SEIECT  ONI’  OPTION"  nnn~yr-» 

a  16,18  SAY  "A. ..START  AGAIN  WIT,:  ORIGINAL  QUOTAS" 
a  17,  10  SAY  "E...  RETURN  TO  STANDARD  REPORT; 

SE1ECTI0N  SEND" 

I  leSs  SAY  "C...PERKAN’iNTLY  REPLACE  ORIGINAL  QUOTAS" 
ACCEPT  "SELECT  CNE  ===>  "  10  WHICHWAY 

DO  CASE 

CASE  1  (WHICNWAY)  =  *B  * 

STORE  P  TC  PTCKMtl'iH 

CASE  1  ( WH IC  BW  A  Y)  *  H\  ~  ,53»,n-ri”  r .. 

irrFPT  »r^-  "•'Nt'  TO  PERMAN-’N-Li  REPLACE  THE; 

ORIGINAL  \SET  0F  QUOXaS  ?"  TO  CONTINUE 

IF  CC;"xf|SS 
p  j  C  A  S  £ 

1  CASE  '  'MU  NIT)  =  'A' 

SAVn  TC  A  :  A  ?  N  G  Q  T  A  3  A .  L  L  LIKE  Q??7 
CASE  I  (MU  NIT)  =  ' 5' 

save  to  a:5?;;gqtas  all  l*kz  q??? 

CASE  !  (MU  NIT)  =  '  C* 

SAVc  TC  AgOP.NGQTAS  ALL  T-IKE  Q??? 


A QL  LIKE  Q? 


KZ  Q??? 


CASE  !  (MU  NIT)  =  '  D» 

SAVE!  to  A ;  DR  NO  QTA5  A^L  LIKE  Q??? 


CIS!  1  (MU  HIT)  =  'S' 

SAVE  TO  A : BNRNGQTA  ALL  LIKE  Q??? 
ENDCASE 

STOKE  F  TO  PICKNNTH 
ELSE 

STORE  F  TO  P ICKMNTH 
El  DIF 
ENDCASE 


E  N  ICO 


DO 


CASE  HCNIH  =•  1  O' 

CO  WHILE  PICKHNTE  =  T 
CASE 

CASE  !  ( M  UN  IT)  * 
RESTOBE  PECM 
CASE  !  ( M  UNIT)  = 
BESTOBE  FBCM 
CASE  !(MUNIT)_  * 
BESTOBE  FBCM 
CASE  !  { M  UN  I T )  * 
BESTOBE  PBCB 
CASE  !  (MUNIT)  = 
BESTOBE  FBCM 
ENCCASE 
ERASE 

1  2,15  SAY  "RIFLE  R 

2  4,5  SAY  "SPACE  BE 
CALCULATIONS  AND  WI 
2  5,5  SAY  "OMY  IF 
CURRENT  QUOTAS'  OPT 
2  6^0  SAY  «***♦♦*** 

2  8,5  SAY  » 


•A' 
A :  A 
•B' 
A :  B 
•C' 
A:C 
'  D ' 
A:  D 
'E' 
A:  B 


BNGCTAS  additive 
RNGQTAS  ADDITIVE 
BNGCTAS  ADDITIVE 
BNGCTAS  ADDITIVE 
NRNGQTA  ADDITIVE 


ANGE  QUOTA  SCRATCH  PAD" 

LCW  THIS  LINE  IS  FOR; 

LL  BE  SAVED" 

YOU  SPECIFY  THE  'REPLACE; 
ION  " 

*************************; 

**«**•< 


2  10,58 
a  10,64 
BEAD 

3  1 2,4 
STCKE  ( 
2  12,15 


GET 

GET 


CNCV 

QCEC 


PI 

PI 


NOV  DEC" 
CTUFE  *999' 
CTURE  '999' 


SAY  "A  TOTAL  OF  " 
QNOV+QEEC)  TC  TEMFSUM 
SAY  STR  (TEMPSUM,  3) 
-  ‘  REMAIN 


a  12,19  SAY  "QUOTAS 


FOR  THE  CURRENT  YEAH." 


CO  CASE 

CASE  f  TEMP  S DM  =  M  LEFT) 

2  i  4 , 4  SAY  "QUCTAS  EQUAL  NUMBER  OF  MARINES; 
LEFT  TO  QUALIFY. . 

2  14.53  SAY  ST  B  (TE  EPSUM,  3) 

CASE  f  ML  EFT  >  TEMPSUM) 

a  14.4  SAY  "YOU  NEED  " 

STORE  (MLEFT  -  TEMP  SUM)  TO  NEEDED 
a  1 4,1 3  SAY  ST  B  (NEEDED. 3) 

3  14,19  SAY  "MORE  QUOTAS." 

CASE  (TEMPSUM  >  MLEFT) 

2  1 4,4  SAY  "YO  U  HAVE  " 

STORE  (TEMPSUM  -  MLEFT)  TO  EXTRA 
a  1  4,1  3  SAY  ST  R  (EXTRA. 3) 

2  14,18  SAY  "EXCESS  QUOTAS." 

ENDCASE 

3  15,24  SAY  "SELECT  ONE  OPTION" 

2  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 

3  17,18  SAY  "E... RETURN  TO  STANDARD  REPORT; 
SELECTION  MENU" 

2  18,18  SAY  "C.. .PER MANENTLY  REPLACE  ORIGINAL; 
QUCTAS" 

ACCEPT  "SELECT  CNE  ==  =  >  "  TO  WHICHWAY 
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EC  CAc£ 

CASE  J  (WHICF.NAY)  =  *B‘ 

STORE  ?  1C  PICK  M  NT  H 
CASE  !  (  WH  IC  FWAY)  =  *C 

ACCEPT  "DC  YOU  WANT  TO  PERMANENTLY  REPLACE  THE 
ORIGINAL  SET  OF  QUOTAS  (Y/N)  ?"  TO  CONTINUE 
IF  CONTINUE 
CO  CASE 

CASE  !  (MU  NIT)  =  *  A1 

SAVE  TO  A :  AR  NGQTAS  ALL  LIKE  Q??? 

CASE  1  (MO  NIT)  =  «  B* 

SAVE  TO  A :  BRNGQTAS  ALL  LIKE  Q??? 

CASE  J  (MU  NIT)  =  ’C‘ 

SAVE  TO  A :CR  NGQTAS  ALL  LIKE  Q??? 

CASE  J  (MU  NIT)  =  '  D* 

SAVE  TO  A : DP  NGQTAS  ALL  LIKE  Q??? 

CASE  l  (HU  NIT )  =  •  E‘ 

SAVE  TO  A : BNRNGQTA  ALL  LIKE  Q??? 

ENDC ASE 

STORE  f  TO  P ICKMNTH 
EL  S  E 

STORE  I  TO  P  ICKMNTH 
END  I F 
ENIC ASE 


EHDDC 


CASE  MCNTF  «»  IV 

DC  WHILE  PICKMNTH  * 

DO  CASE 

CASF  !  (MUNIT)  = 
hESTOBE  FbCM 
CASE  1  (MUNIT)  = 

RESTORE  FRCH 
CASE  I  (MUNIT)  = 

RESTORE  FtCM 
CASE  !  (MUNIT)  «= 

RESTORE  FFCM 
CASE  !  (MUNIT)  = 

RESTORE  FBCM 
INDC.'.SE 
ERASE 

E  2,15  SAY  "RIFLE  RANGE  QUOTA  SCRATCH  PAD" 
a  4,5  SAY  "SPACE  BELOW  THIS  LINE  IS  FOR; 
CALCULATIONS  AND  WILL  EE  SAVED" 

3  5.5  SAY  "0  MY  IF  YOU  SPECIFY  THE  ‘REPLACE; 
CURRENT  QUOTAS’  OPTION  " 

3  6j0  SAY  ********************************** 


•  A‘ 

A:ABNGQTAS 

•  B‘ 

A:BRNGQTAS 

•C‘ 

A:CRNGQT AS 
» D  ’ 

A  :  D  RNGQT AS 

‘  E  * 

A;  B  NRNGQTA 


ADDITIVE 

ADDITIVE 

ADDITIVE 

ADDITIVE 

ADDITIVE 


a  8.5  S  A  I 
EEC" 

3  10,64  GET  QDEC  PICTURE  *999’ 
READ 


a  1  Oil  «  iv  TflTiT  P?  «t 

^EEB»QMAR+5A  PE+QMA Y+QJ UN+QJ UL+  ; 


u  i  a.  * 

STORE 

CACG+0 


'  ▼  w  U  W 

;mpsum 


QQCT+QNOV ♦QEEC)  TO 
12, T5  SAY  SIR  (TEMESUM,  3) 

12,19  SAY  "QUOTAS  REMAIN  FOR  THE  CURRENT  YEAR 


ro  casp 

CASE  (TEMPSUM  *  M  LEFT) 

3  14,4  SAY  "OUCTAS  EQUAL  NUMBER  OF  KARINES; 
LEFT  TO  QUALIFY. .c" 

3  14.53  SAY  STB  (TE  PPSUM,  3) 

CASE  (MLEF1  >  TEMPSUM) 

a  14  4  SAY  "YOU  NEED  " 

STORE  (MLEFT  -  TEMPSUM)  TO  NEEDED 
a  14,13  SAY  ST R (NEEDED, 3) 


153 


9  14-19  SAY  "SORE  QUOTAS." 

CASE  (TEKFSUE  >  M  L  EFT) 

3  14-4  SAY  "YOU  HAVE  " 

STORE  (T^MPSUM  -  MLEFT)  TO  EXTP.A 
3  14,13  SAY  ST  R  (E  XIR  A,  3) 
a  14,18  SAY  "EXCESS  QUOTAS." 

ENDCASE 

8  15,24  SAY  "SELECT  ONE  OPTION" 

3  16,18  SAY  "A. ..START  AGAIN  WITH  ORIGINAL  QUOTAS" 
a  17,18  SAY  "E... RETURN  TC  STANDARD  REFORT; 

SELECTION  MENU" 

a  18,18  SAY  "C-. .PERMANENTLY  REPLACE  ORIGINAL  QUOTAS" 
ACCEPT  "SELECT  CNE  ===>  "  TO  WHICHWAY 

EC  CASE 

CASE  l(WHICPNAY)  =  *B’ 

STORE  ?  TC  PICKENTH 
CASE  J(WHICEWAY)  *  «C* 

ACCEPT  "EC  YOU  WANT  TO  PERMANENTLY  REPLACE  THE; 
ORIGINAL  SET  OF  QUOTAS  (Y/N) ?"  TO  CONTINUE 
IF  CONTINUE 
DO  CASE 

CASE  !  (MU  NIT)  =  '  A* 

SAVE  TO  A : AR NGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT )  =  •  B* 

SAVE  TC  A : 8RNGQTAS  ALL  LIKE  Q??? 

CASE  !  (MU  NIT )  =  'C* 

SAVE  TO  A : CR NGQTAS  ALL  LIKE  Q ??? 

CASE  !  (MU  NIT )  =  '  D» 

SAVE  TO  A : DR  NGQTAS  ALL  LIKE  Q??? 

CASE  I  (MU  NIT)  =  '  £' 

SAVE  TO  A : BNRNGQTA  ALL  LIKE  Q??? 

ENDCASE 

STORE  E  TO  PICKHNTH 
ELSE 

'  STORE  F  TO  P ICKMNTH 
ENDIF 
INICASE 

ENEDC 

CASE  MONTH  «•  1  2  ' 

ERASE 

8  2,15  SAY  "RIFLE  RANGE  QUOTA  SCRATCH  PAD" 

2  4,5  SAY  "SPACE  BELOW  THIS  LINE  IS  FOR  CALCULATIONS; 
ANE  WILL  BE  SAVIC" 

a  5-5  SAY  "ONLY  IF  YOU  SPECIFY  THE  ’REPLACE  CURRENT; 

CUC  x  AS  '  OPTION  " 

3  6,0  SAY  "*****************************************; 
*******  «******<< 

a  8-5  SAY  "THIS  IS  THE  LAST  MONTH  OF  THE  CURRENT; 

YEAR." 

ENDCASE 

ENDCASE 

SET  CCLCN  CN 
RELEASE  ALL  LIKE  Q??? 

RELEASE  MLEFT,TEHPSUE , WHICH  WAY ,P ICKMNTH, CONTINUE 
RETURN 
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H 


BIBRSHABSEIP  ROSTER  ROOTIHE 


*  BO  Oil  NE  NAME:  MKSRCST.PRG 

*  MODULE  NAME:  STANDARD  REPORT  GENERATOR 

*  VERSION:  5.7. 0 

*  AOTBCS:  B .  I.  PRUIET1 

*  DA1E:  28DEC83 

*  V  ABIAEIES  nS  ED :  MUNIT.  MPLAT 

*  VARIAB1ES  .lODIFIED:  NONE 

*  VARIAEIES  CREATED:  NONE 

*  VARIAEIES  RELEASED:  BUNIT,  BE  I  AT 

*  PILES  OPEN ED/CLO SEE:  PERS,  Q UAL  (ALL  FILES  CLOSED) 

*  TE  EE  FILES  CREATED:  BRKSDATA  (CHEATED  AND  DELETED) 

*  USING  SUEFOUTINES:  S1DBPT.PRG 

*  DESCBIETICN:  THIS  ECOTINE  CREATES  A  TEMPORARY  FILE  WHICH 
l  INCLUDES  NAME,  RFICOAL.  RFLDATE,  PSTQUAL,  PSTDATE  FOR 

*  EACH  MEMBER  IN  THE  SELECTED  UNIT.  A  STANDARD  REPORT 

*  FORHAT  (B : MR KS  FPT)  IS  USED  TO  DISPLAY  THE  "MARKSMANSHIP 

*  ROSTER  REPORT". 

* 

tSE  PERS 

SELECT  SECONDARY 
CSE  CCAl 

JOIN  TO  BRKSDATA  FOR  P.SSN  =  S.SSN  FIELD; 

NAME,BFICUA1,RFLDATE,ESTQUAL,ESTDATE 

CSE  BBKSCATA 

ERASE 

DO  CASE 

CASE  1  (BUNIT)  =  •  ft  • 

REPORT  FORM  B: B  EKS  BPT 
CASE  !  (MUNIT)  =  ‘E‘  .AND.  !  ( MPL AT)  =  ’A' 

REPORT  FORM  B :  BRKSRPT  FCR  COMPANY  =  ONECO 
CASE  1  (MUNIT)  =  •£•  .AND.  !  ( MPLAT)  =  *3' 

REPORT  FORM  B : BEKS RPT  FOB  COMPANY  =  ONECO  .AND.; 
PLITCCN  =  ON  EP IT 

CASE  !  (BUNIT)  *  '  £•  .AND.  !  (MPLAT)  =  'C' 

REPORT  FORM  B : BRKSRPT  FCR  COMPANY  =  ONECO  .AND.; 
PLATCCN  ■  TWOPIT 

CASE  !  (BUNIT)  =  '  E'  .AND.  !  ( BPLAT)  =  '  D' 

REPORT  FORM  B: BRKSRPT  FOR  COMPANY  =  ONECO  .AND.; 
ELATCCN  =  THREFPLT 

CASE  !  (BUNIT)  =  ’  E*  .AND.  !  (MPLAT)  =  •  E' 

REEORT  FORM  B : MRKSRPT  FOR  COMPANY  =  ONECO  .AND.; 
PLATCCN  =  FOURPLT 

CASE  !  (BUNIT)  =  'C'  .AND.  !  (MPLAT)  =  'A' 

DEPORT  FORM  BtHSKSRPT  FOR  COMPANY  =  TWOCO 
CASE  !  (BUNIT)  =•  *C'  .AND.  !  (BPLAT)  =  '3* 

FEPORT  FORM  B: MRKSRPT  FOB  COMPANY  =  TWOCO  .AND.; 
P1ATCCN  =  ON  EP  IT 

CASE  1  (BUNIT)  =  'C'  .AND.  I  (MPLAT)  =  ’C' 

REPORT  FORM  B: BRKSRPT  FCR  COMPANY  =  TWOCO  .AND.; 
PLATCCN  =  TWO  P  IT 

^  A  SE  (BUNIT)  =  'C'  .AND.  ’(MPLAT)  =  •  D' 

DEPORT  FORM  B:  BRKSP.PT  FCR  COMPANY  =  TWOCO  .AND.; 
PLATCCN  =  TH REEEL? 

CASE  !  (MUNIT)  =  ’C’  .AND,  !  ( K  FL  AT )  =  'E» 

REPORT  FORM  B: MRKSRPT  FOP  COMPANY  =  TWOCO  .AND.; 
PLATCCN  =  POUREIT 

CASE  !  (BUNIT)  =  '  C'  .AND.  ’(BPLAT)  =  'A» 

REPORT  FORM  B: MRKSRPT  FOP  COMPANY  =  THREECO 
CASE  !  (BUNIT)  =  •  C •  .AND.  !  (MPLAT)  =  '3' 

REPORT  FORM  B : M FKSRPT  FCP  COMPANY  =  THREECO  .AND.; 
PLATCCN  =  CN  EP  IT 

CASE  !  (BUNIT)  =  '  V  .AND.  J  (MPLAT)  =  'C' 

FEPORT  FORM  B : MRKSBFT  FCR  COMPANY  =  THREECO  .AND.; 
PLATCCN  =  TWOPIT 

CASE  !  (MUNIT)  *  *  E '  .AND.  \  (MPLAT)  =  'D' 

REPORT  FORM  B :  MRKSRPT  FCR  COMPANY  =  THREECO  .AND.; 
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PLATOON  =  THREE ELT 

CASE  I  (MUNIT)  *  '  E  *  .ANE.  !  (MPLAT)  =  •  E» 

FEEORT  FORM  B : MRKSRPT  FOR  COMPANY  =  THREECO  .AND. 
PLATOON  =  FOUR  ELT 

CASE  !  (MUNIT)  *  '£•  .AND.  !  (MPLAT)  =  'A‘ 

FEEORT  FORM  B: MRKSRPT  FOR  COMPANY  =  FOURCO 
CASE  !  (MUNIT)  =  •£•  .ANE.  ! (MPLAT)  =  • B* 

FEEORT  PORM  B : MRKSRPT  FOR  COMPANY  =  FOURCO  .AND. 
E1ATCCN  =  CNEPIT 

CASE  !  (MUNIT)  *  '  E»  .ANE.  \  (MPLAT)  =  •  C* 

FEEORT  FORM  B: MRKSRPT  FOR  COMPANY  =  FOURCO  .AND. 
EIATCCN  =  THOPIT 

CASE  2  (MUNIT)  *  'E'  .ANE.  !  (MPLAT)  *  ■  D» 

REPORT  FORM  B: MRKSRPT  FOR  COMPANY  =  FOURCO  .AND. 
EIATCCN  =  THREEELT 

CASE  !  (MUNIT)  =  •  E*  .ANE.  2  (MPLAT)  =  •£' 

REPORT  FORM  B : MRKSRPT  FOR  COMPANY  =  FOURCO  .AND. 
EIATCCN  «  FOOREIT 
INDCASE 
USE 

RELEASE  CUNIT.  MELAT 
EELET1  FILE  MRKS  DATA 
RETURN 
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H.  ICS  S3 1  IDS  RQOTIIE 


RO  DUNE  NAME 
MODULE  NAME: 

VERSION:  5.8 
AUTECB:  B.E. 

DATE:  6NCV83 
VAFIAELES  OS  ED :  ONICO,  TW 
TWCEL1,  1HREEP1T,  FCOBPLT 
PLATNAME 

MODIFIED:  NONE 
CREATED:  COUNT, 
RELEASED:  EROCE 


MOSST AT. FRG 

STANDARD  REPORT  GENERATOR 

0 

PR0IE1T 


OCO,  THREECO.  FOORCO,  ONEPLT , 
,  BUNIT,  MPLAT,  UNITNAME, 


VARIAB1ES 
VAFIAEIES 
7ARIAE1ES 
PLATNAME 

PILES  CFE  NED/C  LOS  EE 
CLOSE  D) 

TEMP  FILES  CREATED:  NONE 
OSING  EOOTINES:  STLFPT.PR 
DESCRIPTION:  THIS  FCOTINE 
REPORT".  EACH  TYPE  OF  HO 
COUNTED  AND  TOTALED.  REGA 
Dll  EE  RENT  HOS'S  IN  THE  ?A 
THEN  DISPLAYED  BY  ECS  AND 


MOS,  RK  ,  PROCEED 
ED,  ROW,  RK,  COUNT,  UNITNAME, 


A:  PE  BS  INDEX  A:MOSNDX  (ALL  FILES 


FR  C DUCES  THE  "MOS  STATUS 
S  IN  THE  SPECIFIED  UNIT  IS 
RDLESS  OF  THE  TYPE  OP  NUMEER  0 
RTICULAR  UNIT.  THE  RESULTS  ARE 
EY  RANK. 


•  E* 

UNITNAM 

•  S'.  ANt, 
PLATNAME 


I  (HU  NIT) <>  • E' 


ERASE 

EO  CVFTUNIT 

USE  A  :  EE  RS  INDEX  AJHCSNDX 
a  0.20  SAY  "MOS  ST  AT  C  £  REPORT" 
IF  !  ( GUNIT) ='E  * 

3  0,38  SAY  "  BATTALION" 

ENDIF 

IF  1  (KUNIT)  <> 
a  C,38  SAY 
INDIF 

IF  !  (MPLAT)  <> 
a  0,46  SAY 
ENDIF 

2  2,  10  SAY  "MOS" 
a  2 , 3  C  SAY  "RANK" 
a  2,55  SAY  "TOTAL" 

STORE  4  TO  BOW 
CO  WHILE  .NOT.  EOP 
SIC  BE  PRIHEMOS  TO 
STCHE  RANK  TO  RK 
STORE  0  TO  COUNT 
DC  CASE 

CASE  !  (MON IT)  = 

DO  WHILE 
EOF 

STORE  COCNT+1  TC 
SKIP 
ENCDO 

CASE  !  (MPLAT)  -  *E* 

DO  WHILE  PR  1MEMOS-MOS 
EC  F 

IF  CCKPAKY= UNIT  NAME 
STORE  COUNT*  1  TC 
ENDIF 
SKIP 
ENDDO 
OTHERWISE 

DC  WHILE  PRIMEMCS=KCS 
EOF 

IP  C  CM  PAN  Y=  UNIT  NAME 
STORE  COUNT*  1  TO 
ENDIF 
SKIP 
ENDDO 


EOS 

,  E' 

PR  IMEMOS=  MOS  .AND. 

CCUNT 


R  A  N  K  =  R  K  .AND. 


NOT. 


NOT. 


AND.  R  ANK  =  RK  .AND 


COUNT 


.AND.  R  A  N  K  =  R  K  .AND.  .NOT, 

.AND.  PLAT  CON  =  PLATNAME 
COUNT 
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ENICASE 
IF  CCCNT  >  0 

a  BOW,  10  SAY  MCS 
3  FOB, 30  SAT  R  F 
a  ECB ,  50  SAT  CCONT 
STORE  ROH+2  TO  fCW 
ENDIF 

IF  BOS  >  20 
3  23,0 

ACCEPT  "PRESS  'ENTER'  TC  CONTINUE"  TO  PROCEED 
EBASE 

STORE  4  TO  SOW 

a  0.20  SAY  "HOE  STATUS  REPORT" 

IF  !  (8UNIT)*'  E  ' 

a  0,38  SAY  "EATTALION" 

ENDIF 

IF  1  (MUNIT)O  'I* 

a  C,3 8  SAT  CKITNAHE 
FNDIF 

IP  1  <CPLAT)<>  ' E ' . AND .  !  (BUNIT)  <>  'E' 
a  0,46  SAT  PIATNAME 
ENDIF 

a  2,  10  SAT  "MOS" 

3  2,30  SAT  "RAFF" 
a  2,55  SAY  "TOTAL" 

ENDIF 

ENDDC 

RELEASE  EROCEED  ,ROW , CCS , RK,  CCtJ  NT  ,  U  NIT  N  AH  E,  PLAIN  AH  E 
USE 

RETURN 
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C.  BCS  10 S TER  BOOTH! 


*  ROUTINE  NAME:  MOSRCST. FRG 

*  BOD  CLE  NAME:  STAND  AFC  REPORT  GENERATOR 

*  VERSION:  5.9. 0 

*  AOTHOR:  R.  E.  EHOIETT 

*  DATE:  6NOV03 

*  VARIABLES  OSED:  BONIT,  MPLAT,  ONECO.  TWOCO,  THREECO, 

*  FOUBCO.  CNEPLT,  TWCFLT,  T  HREEPLT,  FOURPLT 

*  VAR  I A  B  IE  S  MODIFIED:  NONE 

*  VARIABLES  CREATED:  NONE 

*  VARIABLES  RELEASED:  BONIT,  MPLAT 

*  FILES  (CPENED/CLOS  EE)  :  A:PERS  INDEX  A:MOSNDX 

*  TE BP  FILES  CREATED:  NONE 

*  OSING  SUBROUTINES;  S1DRPT .PRG 

«  DESCRIEIICN:  THIS  IS  A  CONTROL  ROUTINE  WHICH  CREATES  THE 

*  PERSONNEL  ROSTER  FCF  THE  UNIT  SPECIFIED  EY  THE  USER'S 

*  RESPONSE  TO  THE  SLCTUNIT  BEN  0  (5 . 1 . 0 )  . 

ERASE 

USE  A : EERS  INDEX  A:MCSNDX 
DO  CASE 

CASE  I(MONIT)  -  »E' 

REPORT  FORB  B:  BCSRPT 
CASE  l(MDNIT)  *  ' A* .AND.  ! ( BPLAT)  =  *E' 

REPORT  FORB  B:FCSRPT  FOR  COMPANY  =  ONECO 
CASE  ((MUNIT)  *  '  A*  .AND.  1  (MPLAT)  -  'A* 

REPORT  FORE  B: BCSRPT  FCR  COMPANY  =  ONECO  .AND.; 
EL1TCCN  *  GNEPLT 

CASE  !  (M  UNIT)  =  •  1*  .AND.  !  (SPLAT)  =  •B* 

REEORT  FORB  B:  BCSRPT  FOR  COMPANY  *  ONECO  .AND.; 
PLATCCN  =  TWOPIT 

CASE  !  (M  UNI  T)  *  *1'  .AND.  !  (MPLAT)  =  'C' 

•  REPORT  FORM  B:MCSRPT  FOR  COMPANY  =  ONECO  .AND.; 
PLATCCN  *  THREEUT 

CASE  (  (MUNIT)  =  «  A'  .AND.  !  (BFLAT)  «  'D* 

REEORT  FORM  B-.HOSRPT  FOR  COMPANY  *  ONECO  .AND.; 
ILATCCN  =  FOURPLT 

CASE  !  (MUNIT)  *  'E'  .AND.  !  (BPLAT)  =  'E' 

REEORT  FORM  B:HCSRPT  FOR  COMPANY  =  TWOCO 
CASE  '.(MUNIT)  =  'E'  .AND.  !  (MFLAT)  =  'A' 

REPORT  FORM  B: BCSRPT  FOR  COMPANY  =  TWOCO  .AND.; 
PLATCCN  =  ONEPIT 

CASE  !  (MUNIT)  =  'E'  .AND.  !  (MPLAT)  =  *B' 

REPORT  FORM  B:MCSRPT  FOR  COMPANY  =  TWOCO  .AND.; 
PLATCCN  =  TWOPIT 

CASE  '.(MUNIT)  *  '  E’  .AND.  !  (MPLAT)  =  'C' 

REPORT  FORM  BlMOSRPT  FOR  COMPANY  =  TWOCO  .AND.; 
PLATCCN  =  THREEPLT 

CASE  !  (MUNIT)  =  '  E '  .AND.  !  (MPLAT)  =  'D' 

REPORT  FORM  B:M0SRPT  FOR  COMPANY  *  TWOCO  .AND.; 
PLATCCN  =  FOURELT 

CASE  !  (B  UNIT)  =  'C'  .AND.  '(MPLAT)  =  'E* 

REPORT  FORM  B: BCSRPT  FCR  COMPANY  =  THREECO 
CASE  !  (MONITi  =  'C'  .AND.  !  (MPLAT)  =  'A' 

REPORT  FORM  B : MOSRPT  FCR  COMPANY  *  THREECO  .AND.; 
PLATCCN  =  CNEPLT 

CASE  '.(MUNIT)  =  'C'  .AND.  !  (MPLAT)  =  '3' 

REPORT  FORM  B: BCSRPT  FOR  COMPANY  =  THREECO  .AND.; 
PLATCCN  =  TWOPIT 

CASE  ((MUNIT)  *  'C'  -AND.  ’(MPLAT)  =  *C' 

REEORT  FORM  BlBOSRPT  FCR  COMPANY  =  THREECO  .AND.; 
PLATCCN  =  THREEELT 

CASE  ((MUNIT)  =  *C  .AND.  '.(MPLAT)  =  'D' 

REPORT  FORM  B: BCSRPT  FOR  COMPANY  =  THREECO  .AND.; 
PLATCCN  ■=  FOURPLT 

CASE  ((MUNIT)  =  '£'  .AND.  ((SPLAT)  =  'E' 

REPORT  FORM  B: BCSRPT  FOR  COMPANY  *  FOURCO 
CASE  !  (BONIT)  =  •£'  .AND.  J  (MPLAT)  =  'A' 
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FOURCO  .AND 


FEEOSl  FORK  B : f C3  RET  PCS  COMPANY  = 

II ITCCN  =  ONEPLT 
CASE  !  (MCNIT)  *  *  Z*  .AND.  !  (MFLAT)  =  *B* 

BEEORT  FORM  BtflCSRPT  FOR  COMPANY  =  FOORCO  .AND. 
ILA1CCN  =  1WOPI1 

CASE  !  (MONIT)  =  •  t»  .AND.  !  (MELAT)  =  *C' 

FEEORT  FORM  B : HOSRPT  FOR  COMPANY  ■  FOORCO  .AND. 
EIATCCN  =  THREIE1T 

CASE  J  (M ONI T )  »  *  D 1  .AND.  !  (MPLAT)  =  *D' 

RIEOPT  FORM  B : MCSRPT  FOR  COMPANY  ■  FOORCO  .AND. 
EIAICCN  =  FOUR  HT 
INDCASE 
OSE 

RELEASE  tONIT,  MELAT 
B2T0BN 


I.  PERSONNEL  D ATI  BCQTI1B 


*  ROUTINE  NAME*.  PERSLATA.PRG 

*  SOD  DIE  NAME:  STANDARD  REPORT  GENERATOR 

*  VERSION:  5.  10. 0 

*  AUTHOR:  R.  E,  PRUIE1T 

*  DAT!:  21NCV83 

*  VARIABLES  USED:  MUNIT.  MPLAT,  CNECO,  TWO CO,  THREECO, 

*  PCDFCC,  CNEPLT,  TWCPLt,  THREEPLT,  FOURPLT 

*  VARIABLES  MODIFIED:  NONE 

*  VARIABLES  CREATED:  COUNT,  PROCEED 

*  VARIABLES  RELEASED:  COUNT.  EFOCEED 

*  FILES  (CPENED/CLOSEE1  :  A:PERS  INDEX  A :  ALPHP ERS 

*  TEMP  FILES  CREATED:  NONE 

*  USING  SUBROUTINES:  STDRPT.PRG 

*  DESCRIPTION:  THIS  IS  A  CONTROL  ROUTINE  WHICH  CREATES  THE 

*  PERSONNEL  ROSTER  FCR  THE  UNIT  SPECIFIED  BY  THE  USER’S 

*  RESPONSE  TO  THE  SLCTONIT  EENU{5.1.0). 

ERASE 

USE  A:PERS  INDEX  A: ALPBPERS 
GOTO  TOP 

STORE  0  TO  COUNT 
DO  WHILE  .NOT.  EOF 
CO  CASE 

CASE  !  (MUNIT)  *  •  E* 

CO  PERSRPT 

STORE  COUNT  ♦  1  TO  COUNT 
CASE  !  (MUNIT)  *  ’I'.AND.  !  (MPLAT)  *  ’E* 

IF  COMPANY  =*  0 N ECO 
DC  PERSRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENCIF 

CASE  !  (MUNIT)  *  *1*  .AND.  !  (MPLAT)  =  'A' 

IF  COMPANY  *  ONECO  .AND.  PLATOON  =  ONEPLT 
EG  PEESRPT 

STORE  COUNT  ♦  1  TO  COUNT 
IN  DIF 

CASE  ! (MUNIT)  *  '  A*  .AND.  '(MPLAT)  =  »B' 

IF  CO  SPA  NY  =  ONECO  .AND.  PLATOON  =  TWOPLT 
CO  PEP.SRPT 

STORE  CCUNT  ♦  1  TO  CCUNT 
ENCIF 

CASE  !  (MUNIT)  *  '!•  .AND.  I  (MPLAT)  =  *C' 

IF  COMPANY  *  ONFCO  .AND.  PLATOON  =  THREEPLT 
DO  PERSRPT 

STORE  COUNT  ♦  1  TO  CCONI 
ENCIF 

CASE  !  (MUNIT)  *  'A*  .AND.  !  (MPLAT)  =  'D' 

IF  COMPANY  =  ONECO  .AND.  PLATOON  =  FOURPLT 
EC  PERSRPT 

STORE  CCUNT  ♦  1  TO  CCUNT 
ENEIF 

CASE  !  (MUNIT)  =  •  E  *  .AND.  !  (MPLAT)  =  *E' 

IF  COMPANY  =  TiCCO 
DO  PERSRPT 

STORE  CCUNT  +  1  TO  CCUNT 
E  N  DIF 

CASE  1  (MUNIT)  =  '  E '  .AND.  ’(MPLAT)  =  *A' 

IF  COMPANY  =  TfcCCO  .AND.  PLATOON  =  ONEPLT 
EC  PERSRPT 

STORE  CCUNT  ♦  1  TO  CCUNT 
ENCIF 

CASE  1  (MONIT)  =  '  E '  .AND.  !  (MPLAT)  =  'B* 

If  COMPANY  =  TSOCO  .AND.  PLATOON  =  TWOPLT 
DC  PERSRPT 

STORE  CCUNT  *  1  TO  CCUNT 

ENCIF 
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CASE  t  (MUNIT)  =  'E«  .AND.  I  (MPLAT)  =  'C* 

IF  COMPANY  =  TJiCCO  .AND.  PLATOON  =  THREEPLT 
CO  PE RS  RP T 

STORE  COUNT  *  1  TO  COUNT 
EN  DIP 

CASE  l(MUNIT)  =  1  E *  .AND.  !  (MPLAT)  *  *D» 

IF  COMPANY  =  TSCCO  .AND.  PLATOON  =  FOURPLT 
DC  PERSRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENEIF 

CASE  !  (MUNIT)  =  'C'  .AND.  !  (MPLAT)  =  *E* 

IF  COMPANY  *  TBFEECO 
DO  PERSBPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIF 

CASE  !  (M UNIT)  =  *C«  .AND.  !  (MPLAT)  =  *A» 

IF  COMPANY  =  THEEECO  .AND.  PLATOON  =  ONEPLT 
CO  PFRSRPT 

STCRE  CCONT  4  1  TO  COUNT 
ENEIF 

CASE  !  (M UNI  T)  *  »C*  .AND.  !  (MPLAT)  =  'B' 

IF  COHPANY  *  TBFEECO  .AND.  PLATOON  =  TWOPLT 
DC  PERSBPT 

STCRE  CCONT  4  1  TO  CCONT 
ENDIF 

CASE  1  (MUNIT)  =  •  C*  .AND.  !  (MPLAT)  *  »C» 

if  Company  =  threeco  .and.  platoon  =  threeplt 

EO  PERSRPT 

STCRE  COUNT  ♦  1  TO  COUNT 
ENEIF 

CASE  !  (MUNIT)  *  *0'  .AND.  I  (MPLAT)  =  'D* 

if  Company  =  terfeco  .and.  platoon  =  fourplt 

DO  PERSRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIF 

CASE  1  (K  UNIT)  *  *  E  *  .AND.  !  (MPLAT)  »  'E' 

if  Company  *  fccrco 
EO  PERSRPT 

STCRE  CCUNT  4  1  TO  CCONT 
ENDIF 

CASE  !  JM  UNIT)  =  *E'  .AND.  )  (MPLAT)  =  'A* 

if  Company  *  fcorco  .and.  platoon  =  oneplt 

DO  PERSRPT 

STCRE  COUNT  ♦  1  TO  COUNT 
ENDIF 

CASE  !  ( M  UNIT)  =  «E*  .AND.  !  (MPLAT)  =  *B' 

IF  COMPANY  *  FCORCO  .AND.  PLATOON  =  TWOPLT 
EC  PE BSRPT 

STCRE  COUNT  ♦  1  TO  COUNT 
ENEIF 

CASE  !  (MUNIT)  =  »C*  .AND.  !  (MPLAT)  =  »C' 

IF  COMPANY  =  FCORCO  .AND.  PLATOON  =  THREEPLT 
DO  PERSBPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIP 

CASE  !  ( M  UNIT)  *  *  E*  .AND.  '.(MPLAT)  =  'D' 

if  Company  *  fccbco  .and.  platoon  =  fourplt 

£0  PERSRPT 

STCRE  CCUNT  +  1  TO  CCUNT 
ENEIF 

ENDCASE 
IF  CCU»T  =  « 

3  22  C 

ACCENT  "PRESS  'ENTER'  TO  CONTINUE"  TC  PROCEED 
STCRE  0  TO  COUNT 
E  F  AS  E 
ENDIF 
SKIP 
ENDDC 
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EELE  AS£  CO 0 NI , 
CSE 

FETOFN 


prcceet 


*■»*#■***■#*##•*#** 


Q.  PERSONNEL  DATA  PCBHAT  ROUTINE 


ROUTINE  NAME:  FERSPFT.PP.G 

MODULE  NAME:  STANDARD  REPCFT  GENERATOR 

VERSION:  5.10.  1.0 

DATE:  2  1NO  V83 

VAEIAELES  USED:  CO  OUT 

VARIABLES  MODIFIED:  NONE 

VAEIAELES  CREATED:  NONE 

VARIABLES  RELEASED:  NONE 

FILES  'OFENED/CLOS  EEi:  NONE 

USING  SUBROUTINES:  PERSPATA. ERG 

DESCEIETICN:  TEIS  IS  A  REPORT  FORMAT  COMMAND  FILE  WHICH 
DISPLAYS  THE  FORMAT  FOR  THE  PERSONAL  DATA  REPORT  AND  GETS 
THE  FIELD  VARIABLES  FROM  THE  PERS.DBF  WHICH  IS  OPENED  AND 
CLOSED  IN  PERS  DATA  .  PPG. 


CO  C  NT  *  6.0  SAT  "NAME  " 

$ ,  5  SAY  NAME 
$,42  SAY  "  SSN  " 

$,47  SAY  SSN 
$*■  1  ,0  SAY  "RANK  •' 

$ ,  5  SAY  BANK 

$ ,  2  C  SAY  "  PRIMARY  MCS  " 
$,3  2  SAY  PRIKEMOS 
$,42  SAY  "  SECCNDAFY  MOS 
$,70  SAY  SECMOS 
$4  1  ,0  SAY  "COMPANY  " 

$,8  SAY  COMPANY 
$ , 2  C  SAY  "  PLATOON  " 
$,30  SAY  .PLATOON 
$,42  SAY  "  JOIN  DATE  " 
$,53  SAY  JOINDATE 
$,62  SAY  "  EAS  " 

$.67  SAT  EAS 
1+1  .0  SAY  "BIRTHDATE" 

$,  10  SAY  ERTHDATE 
$  ,  2  SAY  "  HEIGHT" 

SAY  E  EIGHT 
$,42  SAY  «  WEIGHT" 

$,50  SAY  WEIGHT 
3,62  SAY  "  COMMENTS:" 
$.73  SAY  COMMENT 
RETURN 


it 
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1ST  STATUS  BOOTH! 


*  ROCIINE  NAME:  ES  TST  AT.  FRG 

*  MODULE  NAME:  S TAN  D  P ED  REPORT  GENERATOR 
«  VERSION:  5.11.0 

*  AOTECR:  R.  E.  PRUIETT 

*  DATE:  22DEC83 

*  VAFIAEIES  USED:  MUNIT,  MPLAT,  ONECO,  TWOCO,  THREECC, 

*  FOOECO,CNEFLT,  TWCIIT,  THEEEFLT,  FOURPLT,  ZZTOTAL,  ZZCOC, 

*  Z  Z  H  IS  ,  ZZCOD ,  ZZINT,  ZZAID,  ZZUNI,  ZZNBC ,  ZZHKS,  Z2TAC, 

*  ZZPFT 1 .  ZZPFT2 

*  VARIABLES  MODIFIED:  NONE 

*  VAFIAEIES  CREATED:  PROCEED 

*  VARIABLES  RELEASED:  ZZ??? ??? 

*  PILES  JOFENED/CLOSEE):  B :  EST  ,  A:PERS  (ALL  FILES  CLOSEC) 

*  TEMP  FILES  CREATED:  TEMP  (CREATED  AND  DELETED) 

*  USING  SUBROUTINES:  STDRPT . FfiG 

*  DESCRIPTION:  T  BIS  ROUTINE  CREATES  A  TEMPORARY  FILE  THAT 

*  INCLUDES  THE  ALL  ESSENTIAL  SUBJECT  AND  P FT  FIELDS  FROM 

*  THE  EST.DEF  FOR  MEMEERS  IN  A  USER  SPECIFIED  UNIT.  FRCM 

*  THIS  FILE  IT  COUNTS  THE  TCTAI  NUMBER  OF  UNIT  MEMEERS  THAT 

*  HAVE  COMPLETED  ALL  ELEMENTS  IN  EACH  TRAINING  CATEGORY. 

*  THE  "EST  STATUS  REECRT"  IS  DISPLAYED  WHICH  INCLUDES 

*  TOTALS  FOR  EACH  TRAINING  CATEGORY  AND  THE  PERCENTAGE 

*  COMPLETED  FOR  EACH  TRAINING  CATEGORY. 

ERASE 
10  CASE 

C  ASE  !  (MDNIT)  *  •  E  1 
USE  E :  EST 
DC  CN TEST 

CASE  !  (MUNIT)  =  *  A  ’  .  AND.  !  (  MPL  AT)  =  *E* 

SELECT  PRIMARY 
USE  A  : PE PS 
SEIECT  SECCNDAEY 
USE  E  : EST 
SELECT  PRIMARY 

JOIN  TO  TEMP  FOE  (P. C 0 MP A N¥=ONECO  .AND.  P.SSN'SSN) ; 

FIELDS  COC  .HIS, COD, 1ST, AID, UN  I, PFT 1CLSS , PFT 2CLSS , 

KEC.MRS.TAC 

CSE  TEMP 

LC  CNTEST 

DELETE  PILE  TEMP 

CASE  !  (MUNIT)  =  '  f  .AND.  !  (MPLAT)  =  «A' 

SEIECT  PRIMARY 
USE  A:PERS 
SEIECT  SECCNDAEY 
USE  E :  EST 
SEIECT  PRIMARY 

JCIN  TO  TEMP  FCF  (P. COMPANY  =QN2CO  .AND.  P. PLATOON  =; 

CNEPLT  .AND.  P.SSN=SSN)  FIELDS  COC,  HIS,  COD,  INT,  AID,  ; 

UNI,PFT1CLSS,P  FT2CLSS ,NEC,MKS,TAC 

CSE  TEMP 

DO  CNTEST 

DEIETE  FILE  TEMi 

CASE  J  (MUNIT)  =  'A*  .AND.  !  (MPLAT)  =  'o' 

SEIECT  PRIMARY 
USE  A : PEPS 
SEIECT  SECCNDAFY 
USE  E  :  ES  T 
SEIECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P. COMPANY  =ON2CO  .AND.  P.PIATCCN; 

=  T  WOF  IT  .AND.  L.SSN=S.SSN)  FIELDS  COC,  H  IS ,  COD ,  IN  T  ,  ; 

A 1 1, UN I, PFT1CLSS,PFT2CLSS,NBC,MK5, TAC 
tSE  TEMP 
DO  CNTEST 
DEIETE  FILE  TEEE 

CASE  !  (MUNIT)  =  'A*  .AND.  !  (MPLA  T)  =  'C' 
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SELECT  F  RIMARY 
USE  £ : PE  R  5 
SELECT  SECONDARY 

[51  p  .  pc  T 

SEIECT  PRIMARY 

JCIN  TO  TEMP  FCE  (?. COMPANY  =  ONECO  .AND.  ?. PLATOON; 
=  THREEPLT  .AND.  P.SSN=S.SSN)  FIELDS  COC ,HI S  ,CCD , ; 
INI ,AID, UNI, PF11CLSS, PFT  2CLSS , NBC, MKS,T AC 
USE  TEMP 
DO  CN  TEST 
DELETE  FILE  TEMP 

CASE  l(aOHIT)  =  '£'  .AND.  !  (MELAT)  =  *D' 

SEIECT  PRIMARY 
USE  A :PERS 
SELECT  SECONDARY 
CSE  B:EST 
SEIECT  PRIM?  RY 

JCIN  TO  TEMP  FCR  (F.  COMPANY  =ONECO  .AND.  P. PLATOON; 

=FCUR?LT  .AND.  F .  SSN  =  £ .  S  S  N)  FIELDS  CCC  ,  HI  S  ,  C  CD  ,  I  NT  , 

AIE,UNI,PFT1CL£S,?FT2 CLS S , NBC, MKS , T AC 

USE  TEMP 

DC  CN1EST 

CEIETE  FILE  TEMF 

CASE  !  / M  UNI T )  =  »E'  .AND.  J  (MELAT)  =  •£* 

SELECT  PRIMARY 
USE  A:PERS 
SELECT  SECONDARY 
USE  B : ES T 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCE  (P.  CCME  ANY  =  TMOCO  .AND.  P.SSN=SSN); 
RIELDS  COC,HIS,COD,INT,ATD,UNI,PFT1CLSS,; 

PFT2CLSS , NEC ,MFS,TAC 
USE  TEMP 
DO  CN  TEST 
CEIETE  FILE  TEMP 

CASE  !  (MUNI  T)  *  'E'  .AND.  !  (SPLAT)  =  'A* 

SEIECT  PRIMARY 
CSE  A  : PE RS 
SELECT  SECONDARY 
CSE  B  :  EST 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCR  (P. COMPANY  =TWOCO  .AND.  P.  PLATOON 

CNEFLT  .AND.  P.SSN=SSN)  FIELDS  COC , H I S, COD , I  NT , AI C , 

CNI,FFT1CLSS , PRT2CLSS  ,  NEC,  MKS, TAG 

CSE  TEMP 

DC  CN  TEST 

DELETE  FILE  TEMF 

CASE  !  (M  UNI  T)  =  'E'  .AND.  !  (MFLAT)  =  '6* 

SELECT  PRIMARY 
USE  A: PEES 
SELECT  SECONDARY 
USE  B :EST 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCF  (P. COMPANY  =TVOCO  .AND.  ?. PLATOON; 
=  TWCF IT  .AND.  F.SSN  =  5.SSN)  FIELDS  CCC ,H IS , COD  ,  I  NT  , ; 
AID  ,UNT.PFT1CLSS,FFT2  CLSS,NE>C,MK3,TAC 
USE  T  EM? 

DO  CN  TEST 

DEI  ETE  FILE  TEMF 

CASE  !  (MUNIT)  =  'c'  .AND.  5  (MFLAT)  =  'C' 

SEIECT  PRIMARY 
USE  A  :PEES 
SELECT  SECONDARY 
CSE  E ; ES  T 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCF  (P. COMPANY  =TVCCO  .AND.  P. PLATOON; 
=  TEREEPLT  .AND.  P . S3N =S . SSN)  FIELDS  COC ,ril S  ,CCD , ; 

I  NT  ,  A  ID, UN  I, PFTICLOS, PFT2CLSS, N DC , MRS, T AC 
USE  T  EM? 
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DO  CNTEST 
DELETE  FILE  TEMP 

CASE  t(BUNIT)  -  '  E '  .AND.  1  (BPLAT)  =  *  D' 

SELECT  PRIMARY 
OSE  A:PERS 
SELECT  S  EC ON D ARY 
OSE  8 : EST 
SELECT  PRIMARY 

JCIN  TO  TEKP  FCE  (P.  CCMF  ANY  =TWOCO  .AND.  P. PLATOON  =  ; 
FOUFPLT  .AND.  P.SSN  =  S.SSN)  FIELDS  COC f HIS, COD  ,INT  , ; 

AI D, 0 NI, PFT1 CLSS, PFT2 CLSS, NBC, MKS, TAC 
USE  TEM$ 

DO  CNTEST 
DELETE  FILE  TEMP 

CASE  !  (BllNIT)  *  »C*  .AND.  1  (BELAT)  =  'E» 

SELECT  PRIMARY 
OSE  A  :  PEES 
wELECT  SECONDARY 
CSE  E :EST 
SELECT  PRIMARY 

JCIN  TO  TEKP  FCF  (P. COMPANY  =THR2ECO  .AND.  P.3SN=; 

S.SSN)  FIELDS  CCC, HIS ,COD , INT, A  ID , UN  I ,?FT1 CLSS , J 

PF 12  CLSS, NEC, MRS, TAC 

OSE  TEMP 

DO  CNTEST 

DELETE  FILE  TEMP 

CASE  !  (MUNIT)  *  *C'  .AND.  !  (BELAT)  ■  'A* 

SELECT  PRIMARY 
OSE  A : P2 R S 
SELECT  SECONDARY 
CSE  E : EST 
SELECT  PRIMARY 

JOIN  TO  TE BP  FCE  (P.CCBPANY  =THR2EC0  .AND.  P.PLATCON; 
=  CNEELT  .AND.  P.SSN»S.SSN)  FIELDS  COC  ,  HIS  ,  C  CD ,  I  NT  ,  ; 
^-*2*  AlD,UNI.PF'rlCLSS,PFT2  CLSS,  NBC,  MKS,  TAC 

OSE  TEMP 
DC  CNTEST 
DELETE  PILE  TEMP 

CASE  MMONIT)  =  «C'  .AND.  !  (BFLAT)  =  'B* 

SEltCT  PRIMARY 
OSE  A:PERS 
SELECT  SECONDARY 
CSE  B  : EST 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCF  (P.  C  CMP  AN  Y  =  T  HR  EECO  .AND.  P.PLATCON; 

«  TWOFLT  .AND.  P.SSN  =  S.5SN)  FIELDS  COC,  HIS  ,  CCD  ,  INT,  ; 

AI C,  0NI.PFT1 CLSS, PFT2 CLSS ,NBC,MKS, TAC 
OSE  TEMP 

DO  CNTEST 
DELETE  FILE  TEMF 

CASE  I  (MUNIT)  =  'C'  .AND.  !  (MPLAT)  =  'C* 

SELECT  PRIMARY 
OSE  AiPERS 
SELECT  SECONDARY 
CSE  B :EST 
SELECT  PRIMARY 

JCIN  TO  TEMP  FCF  (P.CCMPiNY  =THREECO  .AND.  P.PLATCON; 
=  T  ER  E  EPLT  .AND.  P.SSN=S.SSN)  FIELDS  COC ,HI S ,CCD , I  NT , ; 

AID,  0 NI.PFT1 CLSS, PFT2 CLSS, NBC, MKS, TAC 
OSE  TEMP 

DO  CNTEST 
DELETE  FILE  TEMP 

CASE  l(MONIT)  =  «C»  .AND.  !  (MPLAT)  =  'D' 

SELECT  PRIMARY 
OSE  A  :  PE RS 
SELECT  SECONDARY 
%  OSE  B  : ES T 

y  —  SELECT  PRIMARY 

JCIN  TO  TEKP  FCE  (F.  C  CMP  A  NY  =  T  HR  EECO  .AND.  P.PLATCON; 
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*  IOUFPLT  .AND.  P.SSN  *S . SSN)  FIELDS  COC  , HI S ,CCD , ; 
HIS,CCD,INT,AID,UNI,PFT1CLSS, PFT2 CLS S , N EC, MKS,1AC 
-  CSE  TEMP 

DO  CNIEST 
DEIETE  FILE  TEEP 

CASE  liMtlNIT)  =  '  E  *  .AND.  !  (MPLAT'  =  'S' 

SELECT  PRIMARY 
DSE  A  :PERS 
SELEC1  SECCNDAFY 
USE  EtEST 
SEIECT  PRIMARY 

JC3N  TO  TEMP  FOR  (P. COMPANY  =  FOURCO  .AND.; 

E . SSN=SS  N)  FIELDS  COC # HI S  ,CCD, I  NT , AT D , U NI, P FT  1 CLSS, ; 

PFT2CLSS  ,NEC,MKS,TAC 

CSE  TEMP 

EO  CNIEST 

DEIEIE  FILE  TE  E E 

CASE  l(MUNIT)  =  ‘E'  .AND.  !  (MPLAT)  =  *  A ' 

SEIECT  PRIMARY 
OSE  A ;PERS 
SEIECT  SECCNDAFY 
DSI  E:EST 
SEIECT  PRIMARY 

JOIN  TO  TEMP  FCF  (?. COMPANY  =FOURCO  .AND.  P.PLATCCN; 
=C  NEE  IT  .  A  t>D .  CNEPLT  .  ANE.  P.SSN=S.SSN)  FIELDS  COC,; 
HIS, COD, INI, AIE,PFT1CLSS,PFT2CLSS,NBC,MKS,TAC 
CSE  TEMP 
DC  CNIEST 
DELETE  FILE  TE  EE 

CASE  IjMUNIT'  =  •  L«  .AND.  1  (MPLAT)  =  'B' 

SEIECT  PRIMARY 
USE  A :PERS 
SEInCT  SECCNDAFY 
USI  E :  EST 
SEIECT  PRIMARY 

JOIN  TO  TEMP  FCP  (P. COMPANY  =FOURCO  .AND.  P.PLATCCN; 
VflL  =T  hOP  IT  .AND.  E.SSN-S.SSN)  FIELDS  COC,  HIS,  COD,  INT, ; 

Alt, ONI, PFT1CLSS,PFT2CLSS,NBC,MKS,TAC 
CSE  TEMP 
DO  CNIEST 
DEIETE  FILE  TSPE 

CASE  J(MUNIT)  *=  '£•  .AND.  !  (MPLAT)  =  'C* 

SEIECT  PRIMARY 
USF  A : PERS 
SEIECT  SECCNDAFY 
05  I  E  :  ES T 
SEIECT  PRIMARY 

JOIN  TO  TEMP  FCR  (P. COMPANY  =FOURCO  .AND.  P.FLATCCN; 
«  1HREEPLT  .AND.  F.SSN  =  S.SSN)  FIELDS  COC ,  HIS  ,CCD ,  ; 
INT  .  AID,  UN  I,  PFT  1CLSS,  ; 

ppt2ciss,nbc,mfs,tac 

USE  TEMP 
DC  CNIEST 
DELETE  FILE  TEMP 

CASE  MMONIT)  =  '!•  .AND.  !  (MELAT)  =  •  D* 

SEIECT  PRIMARY 
USE  A:PERS 
SEIECT  SECONDARY 

fct  p • PC T 

SELECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P. COMPANY  =FOURCO  .AMD.  P.PLATOCN; 
=  FCUR  PLT  .AND.  F.SSN  =  S.SSN)  FIELDS  COC ,  HI  S  ,  C  CD  ,  I  NT ,  ; 
AID,  UNI, PFI1 CLSS, PFT2 CLSS , NBC, MXS.TAC 
CSE  TEMP 
DO  CNIEST 
DELETE  FILE  TEMP 
ENDCASS 

2  0,26  SAY  "EST  STATES  REPORT" 

3  2 ,  C  SAY  "CODE  CF  CONDUCT..." 
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2.25  SAY  (ZZTOTAL-2ZCOC) /2ZT0TAL*  100  USING  '999* 
2 , 3  C  SAY  ''PERCENT  CCHFLETED  ..." 

2.52  SAY  ZZTOT  AL-ZZCOC  USING  '999* 

4,0  SAY  " BARI N  E  CORPS  HISTORY..." 

4.25  SAY  (ZZTOTAL-ZZHIS) /ZZTOTAL*  100  USING  '999  * 

4.30  SAY  "PERCENT  COMPLETED  ..." 

4.52  SAY  ZZTOTAL-Z2HI3  USING  '999* 

6,0  SAY  "CLOSE  ORDEF  DRILL..'." 

6.25  SAY  (ZZTOTAL- 2  2COD)  /ZZTCTAL*100  USING  '999  ' 

6.30  SAY  ''PERCENT  CCMPLET  ED  ..." 

6.52  SAY  ZZTOT  AL-ZZCOD  USING  '999* 

8  ,  C  SAY  "INTERIOR  GUARD..." 

8.25  SAY  (ZZTOTAL-ZZINT) /ZZTOTAL*  100  USING  '999' 
8,3C  SAY  "PERCENT  COUPLET  ED  ..." 

8.52  SAY  ZZTOT AL- Z ZINT  USING  *999' 

10  C  SAY  "FIRST  AID..." 

10l25~SAY  (ZZTOT  AL-ZZAID)  /ZZIOT AL*1  00  USING  '999 

10.30  SAY  "PERCENT  COMPLETED  ..." 

10.52  SAY  ZZTOTAL-  Z2AID  USING  *  999' 

12,0  SAY  "EQUIPMENT/UNIFORMS..  ." 

12.25  SAY  (ZZTOT AL-2ZUNI)  /ZZTOTAL*100  USING  '999 


USING 


USING  '999' 


USING  '999' 


25  SAY  ("ZTOTAL-2ZUNI)/ZZTOTAL*100 
30  SAY  "PERCENT  COMPLETED  ..." 

52  SAY  ZZTOTAL- 22UNI  USING  *999' 

0  S  AY  "NBC  .  " 

25  SAY  (ZZTOT AL- 2ZN BC)  /ZZTOT  AL* 1 00 

30  SAY  '‘PERCENT  COMPLETED _ " 

52  SAY  ZZTOTAL-ZZNBC  USING  *999> 

C  SAY  "MARKSMANSEIF. .  .  « 

25  SAY  (ZZTOTAL-2ZMKS)  /ZZTOTAL*100 
30  SAY  ''PERCENT  COMPLETED  ..." 


USING 


USING  '999' 


USING  *999* 


2  16,52  SAY  ZZ TOTAL- Z 2MKS  USING  *  999* 

2  18, C  SAY  "INDIVID  1AC  MEASURES..." 

3  18,25  SAY  (ZZTOTAL -  ZZT AC )/ZZTOTAL*1  00  USING 
3  18,30  SAY  ''PERCENT  COMPLETED  ..." 

3  13,52  SAY  ZZTOTAL- 22TAC  USING  «999* 

3  20,0  SAY  "PFT 1  . . . " 

3  2  0,24  SA  Y  ( (Z  ZTOT A I-ZZPFT 1 ) /ZZTOT  AL)* 1 00  US 
3  20,21  SAY  ''PERCENT  COMPLETED  PFT  ONE..." 

3  20,62  SAY  (ZZTCTAL-ZZPFT1)  USING  '999' 

3  22  C  CAY  "PPT2..  " 

3  22^24“SAY  ((ZZTOT AI-ZZPFT  2) /ZZTOTAL)  *  1  00  US 
3  22,31  SAY  ''PERCENT  COMPLETED  PFT  TWO..." 
a  22,62  SAY  (ZZTOTAL-ZZPFT2)  USING  '999' 
ACCEPT  "PRESS  'ENTER*  TO  CONTINUE"  TO  PROCEED 
RELEASE  ILL  LIKE  ZZ?????? 

USE 

FETUBN 


USING  '999* 


USING  *999* 


USING  *999' 
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S.  ESI  COCNT  SOOTISI 


*  ROUTINE  NAME:  CNTEST.PRG 

*  HODULE  NAME:  STANDARD  REPORT  GENERATOR 

*  VERSION:  5.11.  1.0 

*  AUTHOR:  R.E.  PBUIETT 

*  DATE:  12EEC83 

*  VARIABLES  USED:  Z ZTCTAL,  ZZCCC,  ZZHIS,  ZZCOD,  ZZINT, 

*  ZZ  A  ID ,  ZZUNI ,  ZZNBC  ,  ZZMKS,  ZZTAC,  ZZPFT1,  ZZPFT2 

*  VARIABLES  MODIFIED: 

*  VARIABLES  CREATED:  NONE 

*  VARIABLES  RELEASED:  NONE 

*  PILES  CFENED/CLOSEt:  NONE 

*  TEHE  FILES  CREATED:  NONE 

*  USING  SUBROUTINES:  ESTSTAT.PRG 

*  DESCRIETICN:  THIS  IS  A  SIMPLE  ROUTINE  THAT  COUNTS  THE 

*  TOTAL  TRAINING  CATEGORIES  THAT  INCLUDE  A  ••*«  <I.E.  COUN 

*  THE  NUMBER  OF  TRAINING  CATEGORIES  THAT  CURRENTLY  INCLUD 

*  ONE  CR  MORE  TRAINING  ELEMENTS  THAT  HAVE  NOT  BEEN 

*  COMPLETED. 

4 


1 

M 


m 
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1.  1ST  ROSIER  BOOTH! 


*  ROUTINE  NAME:  ESTRCST .  PRG 

*  MODULE  NAME:  STANDARD  REPORT  GENERATOR 

*  VERSION:  5.12.0 

*  AUTBCR:  R.  E.  PROIETT 

*  DATE:  20DEC83 

*  VARIAELES  USED:  MUNIT,  MPLAT,  ONECO.  TWOCO,  THREECC, 

*  FOURCC .  ONEPLT,  TBCFLT,  THRi  IPLT,  FOURPLT 

*  VARIABLES  MODIFIED:  NONE 

*  VARIAELES  CREATED:  COUNT,  PROCEED 

*  VARIABIES  RELEASED:  COUNT.  PFOCEED 

*  FILES  (OP  ENE D/CLOS  E  E)  :  A:PERS  INDEX  A  :  ALPRPERS,  E:  EST 

*  INDEX  E  :  E  STS  S  N  (ALL  FILES  ABF  CLOSED). 

*  TEMF  FILES  CREATED:  NONE 

*  USING  SUBFOUTINES:  SIDRPT.PRG 

*  DESCRIPTION:  THIS  IS  A  CONTROL  ROUTINE  WHICH  CREATES 

*  PERSONNEL  FOSTER  FOR  THE  UNIT  SPECIFIED  BY  THE  USER’S 

*  RESPONSE  TO  THE  SLCIONIT  EEMO  (5 . 1 . 0) . 

ERASE 

SELECT  PFIMARY 

CSE  A  :  PEES  I’/PEX  A : A  LFHFLES 

SELECT  SECONDARY 

USE  B  :  E  ST  INDEX  B:ES1SSN 

SELECT  PRIMARY 

GOTO  TOP 

STORE  0  TO  COUNT 

DO  WHILE  .  NCT.  EOF 

CO  CASE 

CASE  !  (MUNIT)  =  *E’ 

DO  ESTRPT 

SICEE  COUNT  ♦  1  TO  COUNT 
CASE  I  (MUNIT)  =  1  A ’ . AND .  !  (MPLAT)  =  1 E • 

if  Company  «  oneco 

DO  EST  B  PT 

STORE  COUNT  ♦  1  TO  COUNT 
ENEIF 

CASE  i  (MUNIT)  =  .AND.  !  (MPLAT)  =  *A» 

IF  COMPANY  *  ONECO  .AND.  PLATOON  =  ONEPLT 
DO  ESTRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIF 

CASE  I  ( M  UNIT)  =  'A'  .AND.  !  (MPLAT)  =  'B* 

IF  COMPANY  =  ONECO  .AND.  FLATOON  =  TWOPLT 
CO  ESTRPT 

STORE  COUNT  ♦IT-  COUNT 
ENEIF 

CASE  !  (MUNIT)  =  •!'  .AND.  !  (MPLAT)  =  'C* 

IF  COMPANY  =  ONECO  .AND.  PLATOON  =  THREEPLT 
DO  ESTRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDTP 

CASE  1  (MUNIT)  =  '  l  ’  .AND.  !  (MPLAT)  =  'D' 

IF  COMPANY  =  ONECO  .AND.  PLATOON  =  FOURPLT 
DO  ESTRPT 

STORE  COUNT  ♦  1  TO  CCONT 
ENEIF 

CASE  !  (MUNIT)  =  'E'  .AND.  ’(MPLAT)  =  •£' 

IF  COMPANY  *  TWCCO 
DO  ESTRPT 

STORE  COUNT  ♦  1  TO  CCONT 

CASE  I  ( M  UNIT)  =  *  E'  .AND.  !  (MPLAT)  =  'A' 

IF  COMPANY  =  TWCCO  .AND.  PLATOON  =  ONEPLT 
DO  ESTRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENEIF 


CASE  !  (MUNIT)  *  'E'  .AND.  ! (MPLAT)  =  »B' 

IF  COMPANY  =  TfiOCO  .AND.  PLATOON  =  T  HOP  LT 
DO  ESTRPT 

STORE  CCONT  +  1  TO  CCONT 
ENDIF 

CASE  !  (MONIT)  *  •  E  •  .AND.  !  (SPLAT)  *  'C' 

IF  COMPANY  *  TWOCO  .AND.  PLATOON  =  THREEPLT 
DO  ESTEPT 

STORE  COUNT  4  1  TO  CCONT 
ENDIF 

CASE  !  (MUNIT)  =  '  E'  -AND.  !  (MPLAT)  =  'D* 

IF  CCMPANY  =  TSCCO  .AND.  PLATOON  =  FOORPLT 
DO  ESTRPT 

STORE  CCONT  ♦  1  TO  CCONT 
ENDIF 

CASE  !  (MUNIT)  =  *C'  .AND.  1  (SPLAT)  =  •  &' 

IF  COMPANY  =  TEEEECO 
DC  ESTRPT 

STORE  COUNT  *  1  TO  COUNT 
ENDIF 

CASE  !  (MONIT)  =  'C'  .AND.  !  (MPLAT)  =  'A' 

IF  COMPANY  =  THEEECO  .AND.  PLAxOON  =  ON EPLT 
CO  ESTRPT 

STORE  CCU NT  4  1  TO  CCONT 
E N  C XF 

CASE  !  (M  ONI  T)  =  *C*  .AND.  !  (MPLAT)  =  '3' 

IF  COMPANY  =  TFREECO  .AND.  PLATOON  =  TWOPLT 
DO  ESTRPT 

STORE  CCONT  4  1  TO  CCONT 
ENDIF 

CASE  !  (MONIT)  =  'C'  -AND.  !  (MPLAT)  =  'C' 

IF  COMPANY  =  THFEECO  .AND.  PLATOON  =  THPEEPLT 
DO  ESTRPT 

STORE  CCONT  +  1  TO  CCUNT 
ENDIF 

CASE  !  (MONIT)  *  'C'  .AND.  !  (MPLAT)  =  'D* 

IF  COMPANY  =  TEFEECO  .AND.  PLATOON  =  FOURPL 
DO  ESTRPT 

STORE  COUNT  ♦  )  TO  COUNT 
ENDIF  .  . 

CASE  !  (MONIT)  =  'E'  .AND.  !  (MPLAT)  =  'a* 

IF  CCMPANY  =  FCORCO 
DO  ESTRPT 

STCRE  CCONT  4  1  TO  CCONT 
ENDIF 

CASE  J  (MONIT)  =  •  E  *  .AND.  !  (MPLAT)  =  'A' 

IF  COMPANY  =  FCORCO  .AND.  PLATOON  =  ONE PLT 
DO  ESTRPT 

STCRE  CCONT  4  1  TO  CCONT 
ENDIF 


E  !  (MONIT)  *  *C'  .AND.  !  (MPLAT)  =  'D* 

IF  COMPANY  =  TEREECO  .AND.  PLATOON  =  FOORPLT 


FCORCO  .AND.  PLATOON  =  ONE  PLT 


=  THREEPLT 


CASE  !  (MONIT)  =  'D'  .AND.  !  (MPLAT)  =  '  B ' 

IF  CCMPAi I  =  FCORCC  .AND.  PLATOON  =  TWOPLT 
CO  ESTRPT 

STORE  COUNT  ♦  1  TO  COONT 

ENDIF  .  , 

CASE  !  (MONIT)  =  'E'  .AND.  ’(SPLAT)  =  'C! 

It  COMPANY  =  FCORCO  .AND.  PLATOON  =  THREE?!' 
DO  ESTRPT 

STORE  COUNT  4  1  TO  COONT 
ENDIF 

CASE  I  (MUNIT)  =  'D'  .AND.  ’(SPLAT)  =  »D' 

IF  COMPANY  =  FCORCO  .AND.  PLATOON  =  FOORPLT 
DO  ESTRPT 

STCRE  CCONT  4  1  TO  CCONT 
ENDIF 

ENDCASE 
IF  CCONT  =  « 
d  22  C 

ACCENT  "ERESS  'ENTER'  TO  CONTINUE"  TO  PROCEED 


STCEE  0  TO  COUNT 
EBSSE 
INDIE 

SELECT  EEIMABY 

SKIE 

ENDDC 

BELEASE  CCUNT, PROCEEE 
CSE 

BETUBN 


0.  1ST  REPORT  PCRHA1  ROUTINE 


*  ROC1INE  NAME:  ESTBrT.  PRG  < 

*  MO  COLE  NAME:  STANDJBE  SEPCR1  GENERATOR  - - 

*  VERSION:  5.1  2.  1.0 

*  AUTHOR:  B.E.  PF.OIETT 

*  DATE:  14NCV83  v  - 

*  VARIABLES  USED:  NONE 

»  VARIABLES  MODI  PI  ED  :  NONE 
<■  VARIABLES  CREATED:  ROW,  MSSN 

*  VARIABLES  RELEASED  :E0W  -‘-V-. 

*  FILES  CPENED/CLOS  EE :  NONE  J 

*  TEMP  PILES  CREATED:  NONE 

*  USING  SUBROUTINES:  ESTROS T  .  P EG 

*  DESCRIPTION:  THIS  fCUTINE  USES.  FORMATS  AND 


*  DISELAYS  THE  EST  RCSTER  REPORT. 

STORE 

(CCGNl  *  6 )  TO  RCW 

2  BOB, 

0 

SAY  NAME 

a  row , 

3  C 

SAY  RANK 

a  rcw. 

33 

SAY  COMPANY 

STORE 

SSN  TC  MSSN 

*  i 

SELECT 

SECONDARY 

FIND  CMS 

SN 

3  ROB 

♦ 

1,0  SAY  "CODE  CF  CONDCCT  " 

a  ROB 

♦ 

1,16  SAY  COC 

a  ROB 

♦ 

1,  22  SAY  "HARCQR  HIS  " 

a  ROB 

♦ 

1,35  SAY  HIS 

3  ROB 

♦ 

1,43  SAY  "MARKSMANSHIP  " 

a  ROB 

♦ 

1,56  SAY  MKS 

a  ROB 

♦ 

1,6  7  SAY  "DRILL  " 

a  ROB. 

♦ 

1,74  SAY  COD 

a  ROB 

4 

2,0  SAY  "INTERIOR  GUARD  " 

a  ROB 

♦ 

2,16  SAY  INT 

*  .*  -J 

a  bow 

4 

2,22  SAY  "MARKSMANSHIP  " 

a  ROB 

4 

2,35  SAY  MKS 

«  BOB 

4 

2,1*3  SAY  "TAC  MEASURES  " 

a  BOB 

4 

2,56  SAY  TAC 

a  bow 

4 

2,67  SAY  "NBC  " 

■  '  ■  . 

a  bow 

4 

2,74  SAY  NBC 

1 

a  RCB 

4 

3,0  SAY  "P  FT  1  " 

a  ROB 

4 

3,6  SAY  EF11CISS 

1 

a  ROB 

4 

3,  10  SAY  "PPT2  " 

a  ROB 

♦ 

3,16  SAY  PFT2CLSS 

a  BOB 

4 

3,22  SAY  "EOU1P/UNI  FORM  " 

-  ■  J 

a  row 

♦ 

3,36  SAY  UNI 

•  ■  1 

a  BOB 

4 

3,43  SAY  "FIRST  AID  " 

-.■I 

a  ROB 

4 

3,54  SAY  AID 

1 

RELEASE  FOB 
RETURN 
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V.  SfilS  Q01LIFXCATICS  BOUT  IKE 


♦  ROUTINE  NAME:  SWIMQUAL.PRG 

♦  MODCIF  NAME:  STANDARD  REP  CRT  GENERATOR 

♦  VERSION:  5.13.0 

♦  AUTECR:  R.  E.  PRUIE1T 

♦  DATE:  20DEC83 

♦  VARIAELES  USED:  MU  NIT ,  MPLAT,  ONECO,  TWOCO,  THREECC, 

♦  FOOPCO,  CNEPLT,  TWCPLT,  TF.REEFLT,  FOURPLT 

♦  VARIABLES  MODIFIED:  NONE 

♦  VARIAELES  CREATED:  PROCEED,  COUNT,  SI  TOTAL,  S2TOTAL, 

♦  S3TCTAI,  OQTOTAL 

♦  VARIAELES  RELEASED:  COUNT,  PROCEED,  MSSN,  Sl'TOTAL, 

♦  S21CTAI.  S3TOTAL,  UCTOTAL,  ROW 

♦  FILES  JCP  ENE  D/CLOS  E  f)  :  A:  IFRS  INDEX  A  :  ALP  HP  ERS 

♦  TEKP  FILES  CREATED:  NONE 

♦  USING  SUBROUTINES:  STDRPT.PRG 

♦  DESCRIPTION:  THIS  FOOTINE  DISPLAYS  THi  SWIM  QUAL  RFPCPT 

♦  FOP  THE  SELECTED  GMT.  THE  SWIM  QUAL  REPORT  CONSIST  OF 

♦  EACE  KARINES  NAME, RANK,  UNIT  NAME,  AND  SWIMMING 

♦  QUALIFICATION  STATES.  AT  THE  END  OF  THE  REPORT,  SUMMARY 

♦  DATA  IS  EISPLAYED  WEICH  INCLUDES  THE  TOTALS  FOR  EACH 

♦  QUALIFICATION  CATEGORY  A  N  L  THE  OVERALL  TOTAL  FOR  THE 

♦  UNIT. 

ERASE 

2  12,27  SAY  "SWIM  QUALIFICATION  REPORT" 

£  22. C 

ACCEPT  "PRESS  'ENTER*  KEY  TC  CONTINUE"  TO  PROCEED 
ERASE 

SELECT  PEIMARY 

CSE  A  :  PEPS  INDEX  A : AIPHFERS 

GOTO  TCP 

STORE  0  TO  S1TOTAL 
STORE  0  TO  S2TOTAL 
STORE  0  TC  S3TOTAL 
STORE  0  TO  UQTOTAL 
STORE  0  TO  COUNT 
CO  WHILE  , NCT.  EOF 
DO  CACE 

CASE  ! (MUNIT)  *  ' E’ 

DC  SWIMRPT 

STCFF,  COUNT  ♦  1  TO  COUNT 

CASE  !  (MUNIT)  =  *  A ' .  AND.  !  (MPLAT)  =  '  E* 

IF  COMPANY  *  ONECO 
DO  SWIMRPT 

STORE  CCUNT  *  1  TO  COUNT 
ENDIF 

CASE  !  (MUNIT)  =  'A'  .AND.  !  (MPLAT)  =  •  A ' 

IF  COMPANY  =  ONECO  .AND.  ELATOON  =  ONEPLT 
DO  SWIMRPT 

STORE  CCUNT  +  1  TO  COUNT 
ENCIF 

CASE  !  (MUNIT)  =  '  A '  .AND.  !  (MPLAT)  =  '3' 

IF  COMPANY  =  ONECC  .AND.  PLATOON  =  TWOPLT 
DO  SWIMRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIF 

CASE  ! (MUNIT)  =  'A'  .AND.  !  (MPLAT)  =  'C' 

IF  COMPANY  =  ONECO  .AND.  FLATOON  =  T  HRSEPLT 
CO  SWIMRPT 

STCRE  CCUNT  ♦  1  TO  CCUNT 
ENCIF 

CASE  !  (MUNIT)  =  '  A '  .AND.  !  (MPLAT)  =  «D' 

IF  COMPANY  =  ONECO  .AND.  PLATOON  =  FOURPLT 
DO  SWIMRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIF 


CASE  !  (MUNIT)  *  *  E*  .AND.  !  (MPLAT)  = 
IF  COMPANY  =  TWCCO 
CO  SWIMRPT 

SI CEE  COUNT  ♦  1  TO  COUNT 
ENEIF 

CASE  !  (HUNIT)  =  •£•  .AND.  ((MPLAT)  = 
IF  COMPANY  =  TWCCO  .AND.  PLATOON  = 
DO  SWIMBPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENDIF 

CASE  1  (MUNIT)  =  »  E*  .AND.  !  (MPLAT)  * 
IF  COMPANY  =  TSCCO  .  *  ND.  ELATOON  = 
DO  SWIMRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENCIF 

CASE  !  (MUNIT)  =  «E'  .AND.  !  (MPLAT)  = 
IF  COMPANY  *  T  WOCO  .AND.  PLATOON  = 
DO  SWIMRPT 

STORE  COUNT  •»  1  TO  COUNT 
ENCIP 

CASE  !  (HUNIT)  =  *  E*  .AND.  !  (MPLAT)  = 
T*  COMPANY  =  TWCCO  .AND.  ELATOON  = 
CO  SWIMRPT 

SICRE  COUNT  ♦  1  TO  COUNT 
■NEIF 

CASE  !  (MUNIT)  =  'C*  .AND.  !  (MPLAT)  * 
IF  COMPANY  «  TEBEECO 
DO  SWIMRPT 

STORE  COUNT  •  1  TO  COUNT 
ENDIF 

CASE  !  (MUNIT)  *  'C'  .AND.  !  (MPLAT)  = 
IF  COMPANY  =  THFEECO  .AND.  PLATOON 
DO  SWIMRPT 

STORE  COUNT  ♦  1  TO  COUNT 
ENEIF 

CASE  !  (MUNIT)  *  'C»  .AND.  !  (MPLAT)  = 
IF  COMPANY  =  TBREECO  .AND.  PLATOON 
DO  SWIMRPT 

STORE  COUNT  4  1  TO  COUNT 
ENCIF 

CASE  I  (MDNIT)  ~  «C'  .AND.  !  (MPLAT)  = 
IF  COMPANY  =  TH5EECO  .AND.  PLATOON 
DO  SWIMRPT 

STORE  COUNT  4  1  TO  COUNT 
ENCIF 

CASE  !  (MUNIT)  =  'O’  .AND.  !  (MPLAT)  * 
IF  COMPANY  =  TEREECO  .AND.  PLATOON 
DO  SWIMRPT 

STORE  COUNT  4  1  TO  COUNT 
FNDIF 

CASE  l  (MUNIT)'  =  «E’  .AND.  !  (MPLAT)  = 
IF  COMPANY  =  FCCECO 
DO  SWIMRPT 

STCRE  COUNT  +  1  TO  COUNT 
ENEIF 


CASE  !  (M  UNIT)  =  •  E  1  .AND.  ’(MPLAT)  = 
IF  COMPANY  *  FCDRCO  .AND.  PLATOON 
DC  SWIMRPT 

STORE  COUNT  4  1  TO  COUNT 
ENDIF 

CASE  1  ( MUNIT)  =  •  E  *  .AND.  !  (MPLAT)  = 
IF  COMPANY  =  FCCRCO  .AND.  PLATOON 
DO  SWIMRPT 

SICRE  COUNT  4  1  TO  COUNT 

ENEIF 

CASE  J  (MUNIT)  =  ’  D  ’  .AND.  ’(MPLAT)  = 
--  NY  =  f -  -  -  - 


IF  COnPAN 

DO  SWIMRPT 
STCRE  COUNT 


FCURCO  .AND.  PLATOON 
♦  1  TO  COUNT 


r  • 


A’ 

ONEPIT 


3* 

TWOPLT 


C* 

THREEPLT 


D  • 

FOURPLT 


E’ 


A  • 

=  ONEPLT 


a  * 

-  TWOPLT 


C  ’ 

=  THREEPL 


•  D» 

=  FOURPLT 


’A’ 

ONEPLT 


B  » 

TWOPLT 


’  C‘ 

THREEPLT 
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ENLIF 

CASE  !  (M  UNIT)  =  *C»  .AND.  !  (SPLAT)  ~  'D* 

IF  CO  MPAN X  =  FCUBCC  .  AND.  PLATOON  =  FOURPL? 
CO  SWIMRPT 

STORE  C  CO  NT  *  1  TO  CCUNT 
ENLIF 

ENDCASE 
IF  CCONT  *  1 

a  22, C 

ACCEtT  “PRESS  ' ENTER*  TO  CONTINUE"  TO  PROCEED 
STORE  0  TO  COONT 
ERASE 
INDIP 

SELECT  PRIMARY 
SKIP 
INDDO 
2  2  2  C 

ACCENT  "EF.ESS  *  ENTER  *  TO  CONTINOE"  TO  PROCEED 
ERASE 

a  2 ,  2C  SAY  "SUMMARY  EATA" 

2  4,1  SAY  “SWIM  CUAL1FICATICN" 

2  4,2  5  SAY  “TOTAL" 
a  6,1  SAY  “SI" 

a  6,25  SAY  S1TOTAL  USING  *9S9* 
a  7, 1  SAY  “ S2" 

a  7,25  SAY  S2TOTAL  USING  ‘  9  99* 
a  8,  1  SAY  "  S3" 

S  8,25  SAY  S3TOTAL  USING  •  9S9* 
a  9,1  SAY  “  UNQUALIFIED" 

3  9.25  SAY  OQTOTAL  USING  '9S9* 

a  10,25  SAY  n  " 

2  12,25  SAY  STTOTTiXTS^TOTAL  4S3T0TAL  +  UQT0TAL  USING 
2  22  0 

ACCE  £ T  “PRESS  '  E  NTE R  *  TC  CONTINUE"  TO  PROCEED 
RELEASE  COUNT, PRCCEEC,  MSSN , S 1  TOTAL , S3TOTAL,  ; 
OQTOTAL, ROW 
OSE 

RETURN 


*9999  * 
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S.  S1IM  REPORT  FOOT 3 BE 


*  SOUTINE  NUKE:  SWIM  SET.  PPG 

*  MODULE  SAKE:  S  TA  ND  A  ED  REP  C  FT  GENERATOR 

*  VERSION:  5.13.  1.0 

*  AUTEGR;  R.E.  PRUIETT 

*  DATE:  12DEC83 

*  VAFIAELES  OS  ED  :NON  E 

*  VARIABLES  MODI  FI  ED  :  ECU E 

*  VAEIAFLES  CR  E  ATED :  FCW  ,  MSSN,  S  1  TOTA  L,  S2T0TAL,  S3TCTAL, 

*  UQTCTAI 

*  VARIAELES  RE  LEAS  ED  :  BO  NE 

*  FILES  CP  EKED/CLOS  E  E  :QU  AL  INDEX  QUAL5SN 

*  TEMP  FILES  CREATEDltiCNE 

•-»  USING  SDEFOUTINES:  SWIMQUAL.FRG 

*  DESCRIPTION:  THIS  ECDTINE  COUNTS  AND  STORES  THE  NUMBER  OP 

*  PERSONNEL  IN  T  FE  SELECTED  UNIT  THAT  ARE  IN  EACH  SWIMMING 

*  QUALIFICATION  CATEGORY. 

STORE  (COUNT  *  3)  TO  ROW 
2  ROW,0  SAY  NAME 
2  RON  ,30  SAY  RANK 
a  ROW  ,33  SAY  COMPANY 
STORE  SSN  TO  MSSN 
SELECT  SECONDARY 
GSE  8:Q0AL  INDEX  B :  QOALSSN 
FIND  SMSSN 

2  RON+1  ,C  SAY  "SWIM  COAL  " 
a  ROH  +  1,  10  SAY  SWIMQOAL 

DCr  CASE 

CASE  SWIMQU  AL  =  *  S  1 * 

STCRE  S1T0TAL  +  1  TO  S1TCTAL 
CASE  SW  IMQU  AL-'  S  2  ' 

STC.'E  S2T0TAL  *  1  TO  S2TCTAL 
CASE  SWIMQU  AL-'  S  3  ' 

STCRE  S3  TOTAL  ♦  1  TO  S3TCTAL 
CASE  SW  I  MOD  AL  *'  UO  ' 

STCRE  UQTOTAL  ’♦  1  TO  UQTCT  AL 
ENCCASE 


1.  BItP  BCUTIBE 


«  RO  OH  N  I  SAME:  HELP. ERG 

*  HOD  OLE  HA  HE:  STANDARD  SEP  CRT  GENERATOR 

*  VERSION:  5.14.0 

*  AOTEOB:  R.E.  PRO  IETT 

*  DATE:  18JAN84 

*  VARIAEIES  OSED:  NONE 

*  VARIABLES  MODIFIED:  NONE 

*  VARIABLES  CREATED:  EELOFT,  PROCEED 

*  VARIABLES  RELEASED:  NONE 

*  FILES  CFENED/CLOSEC:  NONE 

*  TEHF  FILES  CREATED:  NONE 

*  USING  EOOTINES:  STE5PT 

*  DESCRIPTION:  THIS  ROUTINE  PR  VIDES  A  FUNCTIONAL 

*  DESCRIPTION  OF  EACH  REPORT  LISTED  IN  THE  STANDARD  RETORT 

*  SELECTION  MENU. 

ERASE 

a  2,  35  SAY  "HELP  MENC" 

3  3  3  5  CAY  " _ _ _ *i 

a  5*20  SAY  "A.  ..HELP  UNIT  ROSTER" 

S  6 , 2  C  SAY  "B _ HELP  TRAINING  STATUS  REPORT" 

3  7,20  SAY  "C _ HELP  TRAINING  ROSTER  REPORT" 

2  8  r  2  C  SAY  "D...HELP  INDIVIDUAL  TRAINING  RECORD" 

3  9,20  SAY  "E _ HELP  MARKSHANSHIP  STATUS  REPORT" 

3  10, 2C  SAY  "F...HELE  HARKS M ANSHIP  ROSTER  REPORT" 

3  11,20  SAY  "G...HELF  HOS  S  T  AT  OS  REPORT" 

3  12,20  SAY  "H...HE1I  HCS  RCSTES  REPORT" 

3  13,20  SAY  "I... HELP  PERSONAL  DATA  REPORT" 
a  14, 2C  SAY  "J...HELT  EST  STATUS  REPORT" 

2  15,20  SAY  "K...HELT  EST  RCSTER  REPORT" 

a  16,20  SAY  "L...HELF  SWIH  QUALIFICATION  REPORT" 

3  22,20 

ACCEPT  "SELECT  OPTION  *  =  ====>  «  TO  HELPOPT 

IRAS  E 
DO  CASE 

CASE  !  (EELPOPT)  -  •  A’ 

TEXT 

OPTION  A.  ..UNIT  ROSTER 

1.  At  the  cursor,  next  to  "select  option  ~~==>'\  type  the 
letter  (A-E)  that  corresponds  tc  the  unit  desirec .  Enter 
the  letter  by  pressing  the  enter  Kay. 

2.  If  a  ccapany  was  selected  { A  —  D)  ,  you  will  next  te  asked 

to  select  a  subunit.  Enter  the  appropriate  letter.  If  ycu 
want  the  report  to  include  the  entire  uni*  selected,  enter 
"£"  ALL  OE  UN  IT)  . 

3.  If  c  p  t  i  cd  (i  .e.  ,  3  A  TT  A I ICN)  was  selected  in  the 

select  unit  option,  ycu  will  gc  di  :tiy  tc  the  report  and 
will  ret  he  asked  to  selec'  subu.._c. 

4.  The  CM  1  -OSIER  FEPOPT  .*11  display  i  alphabetic  erder 
the  NAHE,  F  AMR. ,  and  TFIMARY  HOS  for  each  member,  cr  the 
selected  unit  or  submit.  The  screen  will  scroll 

auto  a  at ical ly  unless  stepped  from  the  temnal. 


5.  At  the  end  of  the  report  press 
tc  the  STAN  TAR  D  REPORT  MENU. 
ENDTE1T 


the  enter  key  tc  return 


CAS  E  !  (EELFCPT)  =  » B' 

TEXT 

CPTION  P... TRAINING  STATUS  ?  5  PC  FT 
1.  At  the  cursor,  next  to  "select  cooion  type  an  a 

enter  the  letter  (A-E)  that  ccrrespcr.  is  to  the  unit 
d  ?  .  .  ’  d  . 
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2.  If  a  company  was  selected  <A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.  Enter  the  appropriate  letter.  If  you 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  <1.6.,  ALL  01  0 Nil)  . 

3.  If  cpticn  "E"  (i.e.,  BA1TAII0N)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  tc  the  report  ar.d 
will  ret  be  asked  to  select  a  subunit. 

4.  A  "WORKING "  signal  on  the  screen  will  be  shown  tc 
indicate  that  the  computer  is  searching  for  the  information 
you  requested. 

5.  Ibe  TRAINING  STATUS  REPORT  provides  for  all  esstential 
subjects,  the  PERCENT  of  the  unit  that  has  succesf ully 
completed  each  training  element  and  the  TOTAL  number  of 
uaip  members  that  have  completed  each  training  element.  In 
addition,  the  report  includes  completion  status  for  PFT1, 

EFT  2,  swing  UAL,  §IFLE  OUAL,  and  PISTOL  QUAL. 

6.  Eress  the  enter  key  to  return  to  the  STANDARD  REPORT 
HENU. 

INDIE JT 

CASE  !  (EELPCPT)  =  •  C' 

TEXT 

OPTION  C... TRAINING  ROSTER  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>•'  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.  r.nter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.  Enter  the  appropriate  letter.  If  ycu 
want  the  report  tc  include  the  entire  unit  selected,  enter 

"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  cpticn  "E"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  ycu  will  go  directly  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 

4.  The  TRAINING  ROSTER  REPORT  heading  will  appear  in  the 
center  of  the  screen.  Press  the  enter  key  to  begin  the 
report. 

zndtext 

ct  22,0 

ACCEPT  "ERESS  'ENTER1  KEY  TC  CONTINUE"  TO  PROCEED 
IRAS  E 

TEXT 

5.  Tbe  TFAINING  ROSIER  REPORT  displays  in  alphabetic  order 

each  neater  of  the  selected  unit  or  subunit  ahd  his 
complete  training  status  for  the  current  year.  If  a 
training  element  has  been  succesfully  completed  for  the 
current  year,  a  letter  corresponding  to  that  training 
element  will  be  shown.  A  svmbol  indicates  that  a 

training  element  has  rot  been  completed.  For  example, 
"FIRST  AID  AE*H**6**DE"  indicates  that  elements  ABDEE  and  H 
have  beer,  completed  ard  five  of  the  eleven  elements  have 
NOT  been  completed  (i.e.,  C,G,I,J  and  K)  .  Four  .eccids 
will  be  displayed  cn  the  screen  and  you  will  bo  asked  tc 
press  the  erter  key  tc  scroll  the  report. 

6.  At  the  end  of  the  report,  press  the  sr.tsr  key  to  return 
to  the  STANDARD  FEPOFI  Hil.U. 

END  1 E  IT 

CAoE  I  (FELFCFT)  =  *  D' 

TEXT 


CPTION  D.  ..  INDIVIDUAL  TRAINING  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>»,  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.  inter 
the  letter  ry  pressing  the  enter  key. 

2.  If  a  company  was  selec-  1  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit,  Enter  .he  appropriate  letter.  If  you 
want  the  report  to  include  tne  entire  unit  selected,  enter 
"E"  (i. e.,  ALL  Of  UN  IT) . 

3.  If  cpticn  “£■'  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  you  will  gc  directly  to  -the  report  and 
will  net  be  asked  to  select  a  subunit. 

ii.  At  the  end  of  the  reoort  press  the  enter  key  to  return 
to  the  STANDARD  REFOET  MENU  . 

END  TE  XT 

CASE  !  (E  ELFCPT)  -  *  E* 

1EXT 

OPTION  E. . .MAR KSMANSHIP  STATUS  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>".  type  the 
letter  (1-E)  that  corresponds  to  the  unit  desired.  Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D),  you  will  next  be  asked 
to  select  a  subunit,  Enter  the  apo  opriate  letter.  If  you 
want  the  report  to  include  the  en+.  -  unit  selected,  enter 
"E"  (i.e.,  All  oe  unit)  . 

3.  If  cpticn  "E"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  net  be  as‘-ed  to  select  a  subunit. 

4.  The  MARKSMANSHIP  STATUS  REPORT  will  display  the 
qualificat icn  results  for  the  unit  or  subunit  members  that 
have  fired  for  qualifi-  catior.  during  the  current  vear. 
Also,  the  percent  that  has  qualified  in  each  category  (<*g. 
EX,  SS  .SM/JNC)  and  current  year  result?  for  rifle  and  d is- cl 
will  re  shewn.  The  pistol  qualification  results  include 
caly  these  members  reguired  to  fire  the  pistol  for 
qualification.  Press  the  enter  key  to  continue  with  the 
report . 

ENDTE  XT 
3  22,0 

ACCEPT  "FREES  'ENTER'  KEY  TC  CCNTINUE"  TO  PROCEED 
ERASE 


TEXT 


S.  Ycu  will  be  asked  if  you  want  to  do  a  company  cr 

battalier  range  quota  analysis.  If  you  answer  r.o  ("II"), 

you  will  automatically  return  to  the  STANDARD  RE  FOR  I  Mr  NU . 
The  range  quota  analysis  allows  you  to  observe,  manipulate 
cr  permanently  change  the  rifle  range  quotas  tnat  are 
assigned  tc  the  un^t  for  the  rest  of  the  calendar  year. 

Ca  mo  n  n/*t  a  sn  al  \»  c  m  c*  An  1  u  Ka  a  r-  ^  ^  K  a.  ^  ^  ^  ^  1  QI 


>  V  V  V4*A  ^  V.  -A.  »W 

Range  quota  analysis  ma 
for  a  selected  ccmpary 


(  only  be  done  tor  the 
(not  platoons)  . 


€.  At  the  top  of  the  screen  aeneral  rifle  range  quota 
information  is  displayed  followed  by  the  number  of  quotas 
remaining  in  the  current  calendar  year.  Finally,  an 
indication  whether  remaining  quotas  are  less  than,  greater 
than,  cr  equal  tc  the  number  cf  Marines  left  tc  qualify  is 
s  ho  w  n . 


1.  From  this  point  ycu  may  change  the  quota  allocation  c-n 
a  scratch  pad  or  you  nay  return  to  tha  STANDARD  REPORT 
MENU.  Tee  crigrr.al  set  of  quotas  have  r.ut  beer,  modified. 


END  IE  51 

a  22,0 

ACCEPT  "PRESS  'ENTER'  KEY  TC  CCNTINUE"  TO  PROCEED 

ERAS  E 

TEXT 

8.  The  scratch  pad  again  shews  the  remaining  quota 
allocations.  However,  you  nay  make  any  temporary  quota 
changes  you  desire  on  the  scratch  pad  by  simply  overtyping 
the  current  quota  allocation (s) .  The  enter  key  will 
automatically  move  the  cursor  to  the  next  quota,  and  a 
buzzer  will  sound  when  you  reach  the  end  of  each  field. 

9.  After  you’ve  reached  the  last  month's  quota,  you  will 
be  asked  to  select  cne  of  the  following  three  options: 

A.  ..Start  over  on  the  scratch  pad  with  the  original  set 

cf  quotas. 

B. . .Return  to  the  STANDARD  REPORT  MENU 

C. . .PERMANENTLY  REPLACE  ORIGINAL  QUOTAS  with  the  set  cf 

cugtas  that  are  currently  disDlayed  on  the  screen. 
This  is  the  only  option  that  will  actually  modify 
the  original  set  or  quotas  for  the  unit. 

10.  Cptiop  A  may  he  repeated  indefinitely.  Option  £  or 
cgticr  C  will  return  you  directly  to  the  STANDARD  REPORT 

END  IE  XT 

CASE  J  (EELPCPT)  =  '  F' 

TEXT 

CPTION  F. ..MARKSMANSHIP  ROSTER  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.  Inter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit,  Enter  the  appropriate  letter.  If  veu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  option  "E"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 

4.  The  MARKSMANSHIP  FOSTER  REEOFT  will  display  in 

alpha  ret ical  order  the  NAME,  RANK.  DATS  OF  QUALIFICATION, 
ana  QUALIFICATION  RESULTS  for  eacr.  member  or  the  unit  cr 
subunit.  Current  year  results  only  will  be  displayed. 

5.  At  the  end  of  the  report  press  the  enter  kev  to  return 
to  the  STANIARD  REPORT  MlNU. 

ENDIE3T 

CASE  !  (EELPCPT)*  'G' 

IE  XT 

OPTION  G...MCS  STATUS  REPORT 

1.  At  the  cursor,  next  to  "select  cotion  ====>••  tvue  the 
letter  (A-E)  that  corresponds  t  the' unit  desired.  ‘Enter 
the  letter  by  pressing  the  enter  key, 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.  Enter  the  appropriate  letter.  If  yea 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  option  (i.e.,  BATTALION)  was  selected  in  tit 

select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 
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U.  The  PCS  STATUS  BEICRT  displays  the  number  of  unit  cr 
subunit  members  grouped  by  MOS  ana  RANK.  The  screen  will 
scroll  automatically  unless  shopped  from  your  terminal. 

5.  At  the  end  of  the  report  press  the  enter  key  to  return 
to  the  STANIARD  REPORT  kEnU. 

END  TEAT 

CAS  E  !  (EELPCPT)  =  • H* 

TEXT 

OPTION  H...HCS  POSTER  REPORT 

1.  At  the  cursor,  nest  to  "select  option  ====>’»  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.  Enter 
the  letter  by  pressing  the  enter  k9y. 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asked 

to  select  a  subunit,  Enter  the  appropriate  letter.  If  you 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  ON  IT)  . 

3.  If  cp^icn  (i.e.,  BATTALION)  was  selected  in  the 

select  unit  option,  ycu  will  gc  directly  tc  the  report  and 
will  net  be  asked  to  select  a  subunit. 

4.  The  ECS  ROSTER  REPORT  groups  by  primary  racs  and 
displays  in  alphabetic  order  the  NAME,  RANK,  PRIMARY  MOS 
AND  SECONDARY  HOS  of  all  members  in  the  unit  or  subur.it. 

5.  At  the  end  of  the  report  press  the  enter  key  to  return 
to  the  STANIARD  REPORT  MENU. 

ENDTE1T 

CASE  1  (EELPCPT)  *  •  I* 

TEXT 

OPTION  I. ..PERSONAL  DATA  REPORT 

1.  At  tbe  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desirea.  Ent^r 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.  Enter  the  appropriate  letter.  If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E'»  (i.e.,  ALL  Or  UN  IT)  . 

3.  If  eptien  "E"  (i.e.,  EATTAIION)  was  selected  in  the 
select  unit  option,  ycu  wil]  gc  directly  tc  the  report  and 
will  net  be  asked  to  select  a  subunit. 

4.  The  EERSONAL  DATA  EEFORT  displays  for  each  member  of 
the  unit  or  subunit  all  personal  data  including  NAME,  S3N, 
BANK,  FRIMARY/SECONDAFY  BOS.  UNIT/SUBUNIT  NAM  E,  JOIN  DATE, 
EAS,  EIRTHLATE,  HEIGHT,  WEIGHT  and  a  or.e  character  comment 
block,  If  the  ccmment  block  is  "T"  (true),  a  comment  is 
contained  on  the  individual  concerned  in  tne  comment,  file. 
The  screen  will  scroll  upon  pressing  the  enter  key. 

5.  At  the  end  of  the  report  press  the  enter  key  to  return 
to  the  STANIARD  REPORT  MiNU. 

ENDTE1T 

CAS  E  !  (EELPCPT)  =  * J  * 

TEXT 

CFTICN  J...ES1  STATUS  REPORT 

1.  At  tbe  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.  Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asksd 


\ 

I 


I 

I 

I 


i  Kt 

I 


ft 


K 


to  select  a  subunit.  Enter  the  appropriate  letter.  If  vcu 
want  the  retort  to  include  the  entire  unit  selected,  enter 
"2"  (i.e.  ,  ILL  OF  UN  11)  . 

3.  If  cpticn  " E "  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  you  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 

4.  The  ESI  STATUS  REPORT  includes  the  percent  and  total 
number  of  unit  or  sutunit  members  that  nave  completed  each 
ESSENTIAL  SUBJECT  and  the  P  FT . 

E.  At.  the  end  cf  the  report  press  the  enter  key  to  return 
to  the  STANEARD  BEPOBT  MENU  . 

INDIE3T 


CASE  !  (EELPCPT)  =  'K* 

TEXT 

OPTION  K...EST  POSTER  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.  Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  yon  will  next  be  asked 

to  select  a  subunit.  Enter  the  appropriate  letter.  If  you 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  option  "E"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  vcu  will  qc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 


4.  The  EST  ROSTER  REPORT  displays  for  each  member  of  the 
unit  or  sutunit  all  cf  his  esstential  subject  training  and 
PPT  results  for  the  current  year.  A  character 
indicates  an  element  that  has  net  been  completed.  The 
screen  will  scroll  upon  pressing  the  enter  key. 


5.  At  the  end  of  the  re 
tc  the  STANDARD  REP051  M 
END  IE  IT 


gort  press  the  enter  key  tc  return 


CASE  !  (EELPCPT)  =  'L» 

TE  X  T 

OPTION  L - SWIM  QUALIFICATION  REPORT 

1.  At  the  cursor,  next  to  "select  option  =■===>" ,  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.  Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D),  you  will  next  he  asked 

to  select  a  subunit.  Enter  the  appropriate  letter.  If  you 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  opticn  "2"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 


4.  Ih€  SWIM  QUALIFICATION  FEPCFT  displays  in  aiohaletic 
order  for  each  member  cf  the  unit  or  tubunit  NAME,  BANK, 
UNIT  and  CURRENT  SWIM  QUAL  RESULTS. 

5.  At  the  end  of  the  recent  a  SUMMARY  DATA  TABLE  is 
disdayec  which  shew*-  the  number  cr  unit  or  subunit  me  tubers 
that  have  qualified  m  each  category  (SI,  S2,  S3,  UNQ)  . 

6.  Press  the  enter  key  to  return  tc  the  STANDARD  REPORT 
MENU. 

END  TE  IT 


I. 
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&PEE5DIX  H 

H  AI HTEBAilC  £  MODULE  LISTING 


1.  B  AI  SI  AI  N  COHIBOL  ROUTINE 


*  Routine  Name:  Kai ntai n. Pr g 

*  Module  Name:  Maintenance  Module 

*  Version:  6.0 

*  Author:  c.P.  Haeusler 

*  Date:  30  Ncv  83 

*  Variables  Used:  mdc ne , mnt ncpt 

*  Variables  Modified:  mdone  ,  mntnopt 

*  Variables  Created:  idcne,  mr.tr. opt 

*  Variables  Released:  mdone,  mntnopt 

*  Files  (opened/ clos € c) :  none 

*  Temporary  Files  Created:  none 

*  Using  Subroutines:  Cnddet 

*  Description:  This  routine  produces  a  module  which  gives 

*  the  user  the  option  cf  which  maintenace  function  tc 

*  activate.  Each  function  has  an  authorization  level 

*  associated  with  and  cnly  appropriate  users  may  activate 

*  certain  nodules. 


STORE  f  TO  AAdone 
DO  WHILE  .NOT.  AAdone 
ERASE 


4,29  SAY  "MAINTENANCE  NODDLE  MEND" 

6,24  SAY  "SELECT  CNE  OF  THE  FOLLOWING  OPTIONS" 


8.31  SAY  "V...’ 
9.2  1  SAY  "0...1 

10.31  SAY  "C.. 
11,51  SAY  "t;. 

12.31  SAY  "S.  . 

13.31  SAY  "F.  . 
14,29  SAY  "*  Q. 
15,0  SAY  "  " 


VIEW  INDIVIDUAL 
CPDATE  DATA" 

,  . CFEATE  AN  ITR" 


DELETE 

SYSTEM 

EELP" 

. .QUIT 


AN  ITR" 
FUNCTIONS" 


ACCEPT  " 


SELECT  OPTION  =  =  =  >"  TO  mntnopt 


DC  CASE 

CASE  ((mntnopt)  -  «V' 

DO  viewitr 

CASE  !  (mntnopt)  *  'U' 

IF  AAlevel  <  3 
DO  updtitr 
ELSE 

ED  AS  E 

a)  8,31  SAY  "ACCESS  UNAUTHORIZED" 
DO  pause 
EN  DIF 

CASE  ((mntnopt)  =  »C' 

IF  AA  le  vel  <3 
DO  creatitr 
ELSE 

ERAS  E 

a)  8,31  SAY  "ACCESS  UNAUTHORIZED" 
DO  pause 
ENCIF 

CASE  (  (mntr.ODt)  =  *D' 

IF  AAlevel  =  1 
DO  deletitr 
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ELSE 

rp  h  c  r 

S  8,31  SAS  "ACCESS  UNAUTHORISED" 
DO  pause 
endif 

CASE  !(mntnopt)  =  ’S' 

IF  AA level  =  1 
DO  systei 
ELSE 

1*8^31  SAI  "ACCESS  UNAUTHORIZED" 
DO  pause 
IN  LIE 

CASE  I  (mntnopt)  =  *h' 

STORE  2  TO  EELPOPT 
DO  6:  HELP2 

CASE  !  (mntnopt)  =  *Q’ 

STCBE  t  TO  AAdor.e 
ERASE 
E  NIC  ASE 
ENDDO 

RELEASE  aintnopt,  HELfCPT 
RELEASE  AAECNE 


RETURN 


E.  VIES  CCBTROL  BOOTHE 


*  Routine  Name:  Viewitr.prg 

*  Module  Naas:  Maintenance  Module 

*  Ve r sicn:  6.1.0 

*  Author:  E.P.  Haeusler 

*  Date:  1  Dec  83 

*  Variables  Used:  vdcne,  vfinish,  vnama,  vcomp,  vagain, 

*  vssu,  vend,  view 

*  Variables  Modified:  sane  as  above 

*  Variables  Created:  same  as  above 

*  variables  Released;  all  like  v??????? 

*  Piles  <opened/ close d) :  a:  pars (opane d/closed) 

*  Temporary  Files  Created:  none 

*  Using  Subroutines:  laintain. prg.  stdrpt.prg 

*  Description: This  routine  controls  the  creation  of  the 

*  ITR  for  viewing  only.  It  dees  r.ot  allow  any  changes  to 
4  data. 

STORE  F  1C  VNOFIND 
STORE  F  TC  VDCNE 

DO  WHILE  .NOT.  VDONE 
STORE  F  TO  V F IN  IS  P 

DC  WHILE  .NOT.  VFIKISH  .AND.  .NOT.  VDONE 
ERASE 

3  6,31  SAY  "TO  1CCATE  AN  ITR" 

$  $,31  SAY  "ENTER  NAME  (LAST,  FIRST  MI.)" 

ACCEPT  "  NAME  =  ">"  TO  VNAME 


STORE  UVNAME)  TO  VNAME 
USE  A:PERS  INDEX  A : AL  PHPE  ES 
FIND  C7NAME 


a  8.31  SAY  "  INDIVIDUAL  -is  NOT  IN  THE  DATA  EASE" 
STORE  F  TO  VCOMP 
DO  WHILE  .NOT.  VCCME 

ACCEPT  "CO  YOU  WANT  TO  TRY  AGAIN  (Y/N)"  ; 

TO  V  AGAIN 

STORE  !  {  V  AG  A  IN)  TO  VAGAIN 
DO  CASE 

CASE  VAGAIN  =  *N' 

STCFE  T  TC  VECNE 
STCFE  T  TO  VCOMP 
STCFE  T  TC  FINISH 
CASE  VAGAIN  =  1  Y ' 

STCFE  T  TC  VCCMP 
STORE  T  TO  VNOFIND 
EN  DC  AS  E 
ENEDO 
ELSE 

STCRE  SSN  TO  A  ASSN 

SICRE  CGMMEM  TO  STCCMMNT 

USE 


STCRE  F  TO  VEND 
DO  WHILE  .  NCT .  VEND 
STORE  T  TC  VEND 
DO  ITRS  CRN 
DO  GETDATA 

3  24.24  SAY  "**  PRESS  ANY  KEY  TO  CONTINUE  **" 
SET  CONSCIE  OF? 

WAIT 

SET  CONSCIE  ON- 
STORE  F  TC  VIEW 
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IF  STCOMENT 

STORE  F  TO  VCOME 
DC  WHIIE  . NO  T . V  CC  M  P 

ACCEPT  "  DO  YOU  WANT  TO  VIEW  COMMENTS; 

(Y/N)?"  1C  VAGAIN 

DO  CASE 

CASE  !  (VAGAIN)  =  *  N ' 

STORE  T  TO  VCOMP 
STOFE  F  TO  VIEW 
STORE  1  TO  VFINISH 
STOFE  T  TO  VDONE 
CASE  !  (VAGAIN)  =  'Y* 

STOEE  T  TO  VCOMP 
STORE  T  TO  VIEW 
ENtCASE 
ENDDO 
IF  VIEW 

DO  GETCMM  NT 
ENDIF 
ENDIF 
a  24.0 

STOS  E  T  TO  VFIN  ISH 

STORE  P  TC  VCOME 

DO  WHILE  .NOT.  VCOMP  .AND.  VIEW 

ACCEPT  "  DO  YOU  WANT  TO  VIEW  ITS  AGAIN; 
(Y/N)  ?"  TC  VAGAIN 

DC  CASE 

CASE  I  (VAGAIN)  =  'Y* 

STORE  T  TC  VCOMP 
STORE  F  TO  VEND 
CASE  !  (VAGAIN)  =  *  N* 

STORE  T  TC  VCOMP 
STORE  T  TC  VEND 
ENDCASE 
ENDDC 
ENDDO 
ENDIF 
ENDDO 
ERASE 

STORE  F  TO  VCOMP 

DC  WHILE  -NOT.  VCCME  .AND.  .NOT.  VNOFIND 
3  11,24  SAY  "  TC  VIEW  ANCIHER  ITR" 

ACCEPT  "  ENTER  (Y/N) 

TO  VAGAIN 
EC  C  A  cp 

CASE  !  (VAGAIN)  =  *  Y* 

STORE  T  TC  VCOME 
CASE  !  (VAGAIN)  =  '  Nf 
STORE  T  TC  V COM  E 
STORE  T  TC  VDONE 
ENDCASE 
ENDDO 
ENDDC 

RELEASE  ALL  EXCEPT 
RETUFf 


A  AT????? 


c 


I1F  SCFfBH  F0RHA1  BOOTHE 


*  Routine  Hams:  Itrscrn.org 

*  Module  Name:  Mainterance  Module 

*  Version:  6.1 . 0 . 1 

*  Author:  E.P.  Haeusler 

*  Date:  1  EEC  83 

*  Variables  Osed  :NONE 

*  Variables  Mo  dified  :NONE 

*  Variables  Created:  NCNE 

*  Variables  Released :NONE 

*  Files  (cpened/closed)  :  NONE 

*  Temporary  Files  Created;  NONE 

*  Using  Subroutines:  Viewitr,  Creatitr,  Updtitr,  Del 

*  Description:  This  routine  formats  the  screen  m  th 

*  representation  of  ar  ITR. 

ERASE 


a  o 
a  i 
a  i 
a  i 


25  S AY  "INDIVIDUAL  TRAINING  PECOP.D" 
6  SAY  "NAME:" 

46  SAY  "GRADE:" 

57  SAY  "MOS:" 

6  6  SAY  "/: » 

e  SAY  "EIRTHDATE . :" 

4  0  SAY  "SSN.  .. .  :  " 

8  SAY  "CO:" 

18  SAY  "PLAT:" 

33  SAY  "JOIN:" 

46  SAY  "EAS.  :" 

58  SAY  "GAS  MASK..:" 

8  SAY  " MIL  CODE  CE  CON D OCT:" 

4  C  SAY  "PFT1 . ;" 

55  SAY 

61  SAY  "DATE:" 

8  SAY  "HISTORY  OE  HARCOR..:" 

4 C  SAY  "PFT2 . :" 

55  SAY  "/:  " 

61  SAY 

•i 


"6aTE:" 

8  SAY  "ERILL . . . 

4  C  SAY  "NBC . 

8  SAY  "INTERIOR  GUARD . :" 

4  C  SAY  "MARKSMANSHIP . :" 

8  SAY  "EIRST  AID... . :" 

4 C  SAY  "INDIVIDUAL  TACTICAL" 

8  SAY  "EQUIP  S  UNIFORM....:" 

.  4  C  SI  Y  "MEASURES . ;» 

11,6  SAY  "SWIM  QUAL...:" 

11  24  CAY  "DATE:" 
a  11*40  SAY  "WEIGHT  CONTROL....:" 
a  12,8  SAY  "RIFLE  QUAL..:" 

3  12,25  SAY  "/:" 
a  12,21  SAY  "DATE:" 

2  12,49  SAY  "WEIGHT. 
a  13,8  SAY  "PISTOL  QOAL. : " 

2  13,25  SAY  «/:" 

a  13,31  SAY  "DATE:" 

3  13,49  SAY  "HEIGHT. 

3  15,6  SAY  "ELECTRONIC  WARFARE. 

3  15,40  SAY  "DRUG  ABOSE . 

3  16,6  SAY  "CLD  WEATHER . 

3  16,40  SAY  "ALCOHOL  ABUSE.... 

3  17,6  SAY  "LAW  OE  VAR . 

3  17,40  SAY  "HUMAN  RELATIONS.. 

3  18,8  SAY  "TRAINING  CCS . 

3  18, 4C  SAY  "PERSONAL  AFFAIRS. 

3  19,0  SAY  "LEADERSHIP . 

3  19,40  SAY  "UCMJ . 
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m 


a  20,6  SAY  "CHAR  &  MCFAL  ED 
5  21,6  SAY  "CttMENTS.  : " 


BETOER 


E.  SCREEN  DATA  HETB  1EVALR0UTI ME 


*  Routine  Name:  Getdata.prg 

*  Module  Name:  Hainterar.ee  Module 

*  Version :  6.1. 0.2 

*  A uttoi:  D.  P.  Haeueler 

*  Dat^:  1  Dec  83 

*  Variables  Osed:  vssn 

*  Variables  Modified:  NONE 

*  Variables  Created:  NONE 

*  Variables  Re  leased  :  NONE 

*  Files  (cpened/closed)  :  a: per s  (epene d/clcsed) , 

*  b :  est  (ODened/clos  ed)  , 

*  b :  gual  (opened/closedl 

*  b:  inf cmisc {opened/cicsed ) 

*  Temporary  Files  Created:NCNE 

*  Using  Subroutines:  Vievitr,  Ucdtitr,  Deletitr 

*  Description:  This  routine  retrieves  the  information 

*  stored  in  the  data  base  for  the  individual  specified  tv 

*  vssn.  It  then  arranges  it  in  the  screen  format  created 

*  by  Itrscrn.prg. 

STORE  AASSN  TO  VSSN 
USE  A:EE  FS  INDEX  A-.PEESSN 
FIND  CVSSN 


a 

1,13 

SAY 

NAME 

a 

1,52 

SAY 

RANK 

a 

1,6  1 

SAY 

FRIMEMOS 

a 

1,68 

SAY 

SECHOS 

a 

2,23 

SAY 

ERTHDATE 

a 

2, US 

SAY 

SSN 

a 

3,  1  1 

SAY 

COMPANY 

a 

3,23 

SAY 

ILATOON 

a 

3,36 

SAY 

JOIN  DATE 

a 

3,51 

SAY 

FAS 

a 

3.65 

SAY 

GASMASK 

a 

1^,59 

SAY 

WTCONT 

a 

12,59 

SAY 

HEIGHT 

a 

13'?9 

SAY 

HEIGHT 

a 

21,17 

SAY 

COMMENT 

CSE  B  :  E  ST  INDEX  E:ES1SSN 

FIND  CVSSN 

a 

u,2e 

SAY 

CO c 

a 

a ;  5  1 

SAY 

F  FT  1  R  AH 

a 

4 ',57 

SAY 

FFT1CLSS 

a 

4,66 

SAY 

PFT  1  DATE 

a 

5,26 

SAY 

HIS 

a 

5,51 

SAY 

F  FT  2  R  AH 

a 

5,57 

SAY 

FFT2CISS 

3 

5,66 

SAY 

F  FT  2  DATE 

a 

6,28 

SAY 

COD 

a 

6,48 

SAY 

NEC 

a 

SAY 

INT 

a 

7,59 

SAY 

MKS 

a 

8,2e 

SAY 

AID 

a 

9, 2P 

SAY 

UNI 

a 

9,59 

SAY 

TAC 

USE  E  : C 

:ual 

INDEX  B  *.  Q  UALSSN 

FIND  EV 

ISSN 

2  11,20 
a  11,29 
3  12,21 
3  12,27 


SAT  SWIMCUAL 
SAT  SHI M CAT E 
SAY  RFLSCOEE 
SAT  KFLQUAL 
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£.  CCHBENT  RETRIEVAl  EOUTI IE 


*  Routine  Name:  Getcirant  .pr  g 

*  Module  Name:  Maintenance  nodule 

*  Version:  6. 1.  1 

*  Autbcr:  D.P.  Haeusler 

*  Dat$:  10  Jan  84 

*  Vananles  Used:  none 

*  Variables  Modified:  none 

*  Variables  Created:  none 

*  variables  Released:  none 

*  Pries  (cpenei/closed)  :  a :  com nt  (c/c) 

*  Temporary  Files  Created;  ncne 

*  Using  Subroutines:  Viewrtr.prg 

*  Description:  This  routine  drsolays  the  contents  cf  the 

*  comments  data  base  file. 


ERASE 

a  5,33  SAY  "COMMENT  SECTION" 
CSE  A  :CMBNT  INDEX  A : CtHNTSS  N 
EIND  EAASSN 
3  8,2  SAY  I NFOTXT1 
a  8,51  SAY  INFOTXT2 

2  9,2  SAY  I KFOTXT3 

a  9.5  1  SAY  INE0TXT4 
a  10,2  SAY  INFOTXT5 
a  10,51  SAY  IN  FOTXT6 

3  11,2  SAY  INF0TXT7 

3  11,51  SAY  IN  FOTXT8 
3  12,2  SAY  INFOTXT9 
a  12,51  SAY  INFOTXT0 
USE 

EETUEN 


a 


v'  * 


>  * 
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U  ED  HE  CCNT5CL  ROUTINE 


*  Routine  Name:  Updtitr.prg 

*  Module  Name:  Maintenance  Module 

*  Version :  6. 2.  0 

*  Author:  D .?.  Haeusler 

*  Datf:  2  Dec  83 

*  Variables  Used:  aaadcne,  upnarne,  upcomp,  upagam,  aas 

*  Variables  Modified:  aaadone,  upnane,  upcomp,  upagait, 

*  aassn 

*  Variables  Created:  aaadcne,  upname,  upcomp,  upagam, 

*  aassn 

*  Variables  Released:  all  like  up??????,  aassr.,  aaadcne 

*  aathru,  aaccrr 

*  Files  (cpened/closed)  :  a:pers  (OPENED/CLOSEE) 

*  Temporary  Files  Created:  NONE 

*  Usirg  Subroutines:  Maintain. prg 

*  Description:  This  routine  finds  the  ITR  to  be  updated 

*  and  controls  the  update  routines. 

STORE  F  10  AAADONE 


DO  WHILE  .NOT.  AAADONE 
ERASE 

a  e,24  SAY  "WHICH  ITP  IS  TO  BE" 

3  9  23  SAY  "UEDAT1E  OR  CORRECT  ED?" 
a  10,23  SAY  "NAME  (LAST,  FIRST  MI.)" 
ACCEPT  "  NAME  ==- 


TO  UPNAME 


STORE  IjDPNAME)  TC  UP  NAM  E 
USE  A  :  F  t  BS  IN  DEI  a  :  ALPHP  ERS 
FIND  SUP  NAME 


IE  t  =  0 
ERASE 

a  8,24  SAY  " IN EVIDUAL  IS  NOT  IS  THE  DATA  BASE" 

$  9,23  SAY  "OR  YOU  HAVE  ENTERED  AN  INCORRECT  NAME 


STORE  F  TO  UPCCHF 


DC  WHILE  .NOT.  DICOMP 

ACCEPT  "  DO  YOU  WANT  TO  TRY  AGAIN  (Y/N) 

TO  UP  AG  AIN 
DO  CASE 

CASE  1  (UP  AG  AIN  )  =  •  Y' 

STORE  I  TO  UPCOMP 


CASE  !  (U  E  AG  AIN)  =  '  N " 

STORE  T  TO  U  PCOHP 
SIORE  T  TO  AAADCNE 
ENICASE 
ENDDO 
ELSE 

STORE  SSN  TO  AASSN 
USE 

DC  IT  ESC  RN 
10  GEIDATA 
DC  UPCATA 
STORE  F  TO  UPCCMP 
DO  WHILE  .NOT.  DICOMP 
ER  ASE 

ACCEPT  "  DO  YCU  WANT  TO  UPDATE  ANOTHER  ITR; 
(Y/N)  ?"  TC  UPAGAIN 
nn  ri «;  v 

CASE  !  (UPAGAIN )  =  *Y' 

STORE  T  TC  U  tCCMP 
CASE  !  (UPAGAIN)  =  'N' 

STORE  T  TO  U  ICOMP 
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t'J  t* J 


STORE  T 
ENCCASE 
ENEDO 
ENEIF 
END  DC 

LEASE  ALL  EXCEPT  AAs 
LEASE  AASSN,  A  AT  HR  U  # 

FETUEN  . 


TO  AAADONE 


’aacoer,  aaadon 


1S6 


G.  DATA  OPIATE  BOOT 2 HE 


Soutine  Name:  Updata.prg 
Module  Name:  Maintenance 
Version:  6.2. 0.1 
Author:  D.  P.  Haeusler 

.  J.  .  .  n  r»  ^  _  rt  ■*» 


Version . 
Author:  D.  . 
Date:  e  Dec 
Variatles 


soauie 


li: 


in  psts 
incldw-ir 
in  p ersaf 
inccamnt 

Variatles  Modified:  sane 
Variatles  Created:  s 
Variatles  Release^- 
Piles  (cpened/clo 

b : esi  (ooi 
b: inf cmisc  ( o 

Temporary  Files  Created:  none 
Using  subroutines:  updtitr.nrg 
Description:'  This  routine  prompts  th 
specific  field  of  the  ITS  to  update.  It  then  locate^ 
that  field  in  the  cata  base  ana  replaces  the  old  data 
with  re*  data.  It  also  calls  error  checking  routine 
and  a  calculate  function. 

nn  r  t:  rr  r\  %  »  m  n 


U5: 

it 


.r  to  chccsa 
then  locates 

T  A  A 


"  TO  0P0PT 
:hangsd  or  •  Q »  ; 


STORE  E  TO  AATH30 

CO  WHILE  .NCX.  AATHRU 
STORE  F  TO  AACORR 
DC  WHILE  .NOT  „  AACCRR 

RELEASE  ALL  LIKE  IN?????? 

SICBE  " 

3  4  £  t  0 

3  23,0 

3  22,1  SAY  »  OETION :  FIELD  TO  BE 
TO  QCIT." 

3  23,1  SAY  "  OETION  =  =  =  >"  GET  UPOPT  PICTURE  "XXXXXX; 
XXXXXU1  XXXXXX  XX  XXXXXXXX" 

READ 

STCBE  ! (UPCPT)  TC  UPOPT 
CO  CASE 

CASE  UPCPT  =  ‘NAME’ 

STORE  T  TC  AACORR 

USE  A:  PS  E  S  INDEX  A:PERSSN,  A  :  ALE  HPERS 

FIND  &AASSN 

STORE  NAPE  TO  INNAME 

3  1,12  GET  INNAME  PICTURE  " X XX X XX XXX X X X XX X X XX ; 

XXXXXJiXXXXXX" 

READ 

REPLACE  NAME  WITH  !  (INNAME) 

US  E 


CASE  UPCPT  =  'GRADE* 

STORE  T  TC  AACORR 

USE  A:  PEES  INDEX  A:PERSSN 

FIND  SAASSN 

STORE  BANE  TO  INBANK 

3  1,51  GET  INRANK  PICTURE  "XX" 

READ 
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STORE  1  1C  ERROPT 
DO  ERROR 

REPLACE  RANK  WITH  !  (INK Ah' K) 

OSE 

CASE  UPOPT  =  'MOS* 

STORE  T  1C  AACORR 
S  23,0 
a  2U  ,0 

STORE  P  TO  UPCOPMCS 
DO  WHILE  .NOT.  UPCCRMGS 

a  23,1  SAY  "  PRIMARY  OR  SECONDARY?" 

ACCEPT  "ENTER  P  OR  S  ====>"  TO  UPAGAIN 
DO  CASE 

CASE  !  (OP  AGAIN)  =  *  P' 

STORE  1  TO  OPCORHOS 

CSE  A: PEPS  INDEX  A : PERSS N  ,  A:MCSNCX 
FIND  &AASSN 

STORE  PSIMEMOS  TO  INPRIME 
5  1,60  GET  INPRIME  PICTURE  "9999" 

READ 

REPLACE  PRIMEMOS  WITH  !  (INPRIME) 

CSE 

CASE  !  (UP  AGAIN)  =  ‘S' 

STORE  T  TC  UPCORMOS 

OSE  A:  PER  S  INDEX  A:PSRSSN 

FIND  &AASSN 

STORE  SECMCS  TO  INSEC 

3  1,67  GET  INSEC  PICTURE  "9999" 

READ 

REPLACE  S  ECHOS  WITH  INSEC 
CSE 

ENDC ASE 
ENDDO 

CASE  UPCPT-  =  *  DIRT  RCATE ' 

STORE  T  TC  AACORR 

USE  A:  PE FS  INDEX  A:PERSSN 

FIND  &  A  ASSN 

STORE  BRTF.DAT2  TO  INERTH 
d  2.22  GET  INBRTH  PICTURE  "XXXXXX" 

READ 

STORE  2  TC  ERROPT 
DO  ERROR 

REPLACE  ERTHDATE  WITH  IN3RTH 
OSE 

CASE  OPOPT  =  ' S SN ' 

STORE  T  1C  AACORR 

USE  A:  PEPS  INDEX  A:PER3SN 

FIND  &  A  ASSN 

STORE  SSN  TO  T.NSSN 

3)  2,48  Gil  INSSN  PICTURE  "999999999" 

READ 

REPLACE  SSN  WITH  INSSN 
US  E 

USE  A:  CM  MM  INDEX  A:CMMNTS5N 
FIND  D  A  ASSN 

REPLACE  SSN  WITH  INSSN 
USE  E:  ESI  INDEX  B:ES1SSN 
FIND  6  A  A  S  S  N 

REPLACE  SSN  WITH  INSSN 
USE  E:QUAL  INDEX  ElQUALSSN 
FIND  &  A  ASSN 

REPLACE  SSN  WITH  INSSN 

USE  E:  IN  r  CM  ISC  INDEX  BlINFOSSN 

FIND  &  A  ASSN 

REPLACE  SSN  WITH  INSSN 
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STORE  INSSN  TO  A  AS  S  N 
USE 


CASE  UPCPT  *  'CO* 

STORE  T  TC  AACORH 

USE  A:  PEPS  INDEX  AtFERSSN 

FIND  &  A  ASSN 

STORE  CO  MF ANY  TC  INCCKP 

S  3,10  GET  INCOMP  PICTURE  "XXXXXX" 

READ 

REPLACE  COMPANY  WITH  !  (INCOMP) 

USE 

CASE  UPOPT  =  •  PLAT  ' 

STORE  T  TC  AACOFR 

USE  AlPERS  INDEX  A:PER3SN 

FIND  SAASSN 

STORE  FLAT  TO  INPLAT 

a  3,22  GET  INPLAT  FICTURE  "XXXXXXXXX" 
READ 

REPLACE  E1ATOON  WITH  !  (INPLAT) 

USE 

CASE  UPCPT  =  ‘JOIN  ' 

STOR  E  T  TC  AACO  RR 

USE  A:PEFS  INDEX  AtPERSSN 

FIND  SAASSN 

STORE  JOINDATE  TO  INJNDAT  E 

a  3.37  GET  INJN  DATE  PICTURE  "XXXXXX" 

READ 

STORE  3  TC  ERROPT 
DO  EFSOR 

REPLACE  JOIN  DAT  E  WITH  INJNDATE 
USE 

CASE  UPOPT  =  '  E  AS ' 

STORE  T  TC  aACOFR 

USE  A:PEFS  INDEX  A:?ZRSSN 

FIND  SAASSN 

STORE  EAS  TO  INEAS 

a  3.50  GET  INEAS  FICTURE  "XXXXXX" 

READ 

REPLACE  IAS  WITH  INEAS 
USE 

CASE  OPOPT  =  'GAS  MASK' 

STORE  T  TC  AACORR 

USE  A:  PE  RS  INDEX  A:PER3SN 

ft m n 

STORE  G  AS  EAS  K  TC  INGAS 
S  3,66  GET  INGAS  PICTURE  "X" 

READ 

STORE  4  TC  ERROPT 
DO  EFROR 

REPLACE  GASMASK  WITH  !  (INGAS) 

USE 

CASE  UPCPT  =  'MIL  CODE  OF  CONDUCT' 

STORE  T  TC  AACOFR 

USE  B:  EST  INDEX  B:ES1SSN 

FIND  SAASSN 

STORE  COC  TO  INCODE 

a  4  27  GET  INCOLZ  PICTURE  "XXX" 

READ 

REPLACE  CCC  WITH  !  (INCODE) 

USE 

CASE  UPCPT  =  '  PFT1  ' 

STORE  T  TC  AACOF.R 


USE  E:  ESI  INDEX  E:ESTSSN 
FIND  DA  ASSN 

STORE  PFIII'AW  TC  I  Nr  FT  1 

S  4 , 50  GET  INPfll  PICTURE  "999" 

READ 

STORE  5  TC  ERROPT 
DO  ERROR 

REPLACE  F  FT  IRAK  WITH  INPFTl 
USE 

STORE  1  TC  CALCCPT 
DO  CALCOLAT 


CASE  D PORT  =  • DATE  • 

STORE  P  TC  WTHRU 
STORE  T  TC  AACORR 
CO  WHILE  .NOT.  WTHRU 
a)  23,  0 
a  24, 0 

a  23,1  SAY  "  A..FFT1,  B..PFT2,  C..SWIM,; 

D. .RIFLE,  E.. PISTOL" 

ACCEPT  "WHICH  DATE  IS  TO  EE  ENTERED  ===>  " 
TO  WDATF 

STORE  !  (W DATE )  TC  WDATE 
DO  CASE 

CASE  WDATE  =  ‘A* 

STORE  T  TO  WTHRU 

CSE  B: E  ST  INDEX  B:2STSSN 

FIND  &AASSN 

STORE  P  FT  1  DATE  TO  INPPTDT1 
£  4,65  GET  INrFTDTI  PICTURE  "XXXXXX" 
F  FA  D 

STORE  6  TC  ERROPT 
CC  ERRO  R 

FEFLACE  FFT1DATE  WITH  INPrTDTI 
USE 


CASE  WDATE  =  'B* 

slOPE  T  TO  WTHRU 

CSE  B: E ST  INDEX  B:ESTSSN 

FIND  &AASSN 

STORE  PFT2DATE  TO  IMPFTDT2 

a  5,65  GET  INPFTDT2  PICTURE  "XXXXXX" 

READ 

STORE  8  TO  ERROPT 
C C  ERROR 

F  EPL..CE  PFT2DATE  KITH  INPFTDT2 
CSE 


CASE  WDATE  =  *C* 

STORE  T  TC  WTHRU 

CSE  B:QCAL  INDEX  3:QUALSSN 

FIND  ASS  N 

STORE  SWIM  DATE  TO  INSWCT 

a  11,28  GET  INSWDT  PICTURE  "XXXXXX" 

READ 

STORE  1 0  TC  ERROPT 
CC  ERROR 

FEPLACE  SWinDATE  WITH  INSWDT 
CSE 


CASE  WDATE  =  'O’ 

STORE  T  TO  WTHRU 

CSE  B:QUAL  INDEX  B: QU  ALSSN 

FIND  &A  ASSN 

STORE  RFLCATE  TO  INRFLCT 

a  12,35  GEI  INRFLDT  PICTURE  "XXXXXX" 

READ 

SIORE  1 2  TO  ERROPT 
IC  ERROR 
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REPLACE  F.FLDATE  WITH  I  NET  LIT 

use 

CASE  WDATE  =  'S' 

SIC  R  3  T  TC  WTHRU 

CSE  3:QUAL  INDEX  BiQUALSSN 

FIND  GAASSN 

STORE  P STD  ATE  TO  INPSTDT 
2  13,35  GET  INPSTDT  PICTURE  "XXXXXX" 
E  EA2 

STORE  1 5  TC  ERROPT 
EC  ERROR 

BEFLACE  FSTDATE  WITH  INPSTDT 
CSE 

ENECASE 

ENDDO 

CASE  UFCPT  =  'HISTCEY  CF  MARCOR* 

STORE  T  1C  AACORR 

USE  E:EST  INDEX  E:£STSSN 

FIND  6  A ASSN 

STORE  HIS  TO  INHIS 

3  5,27  GET  INHIS  PICTURE  "XXX" 

READ 

REPLACE  HIS  WITH  INHIS 
USE 

CASE  UPOPT  =  ' P PT2 ' 

STORE  T  1C  AACQ  FR 

USE  E:  ESI  INDEX  B:ES1SSN 

FIND  GAASSN 

STORE  PF12FAW  TO  INPFT2 
a  5,50  GET  INPFT2  PICTURE  "999" 

READ 

STORE  7  1C  ERROET 
DO  ERROR 

REPLACE  EFT2BAW  WITH  INPFT2 
USE 

STORE  2  1C  C&LCCFT 
DO  CALCULAT 

CASE  UPCPT  -  'DRILL' 

STORE  T  TC  AACORR 

USE  B:  ES 1  INDEX  B:SST3SN 

FIND  GAASSN 

STORE  CCE  TO  I  N  DR  ILL 

a  6,27  GET  INDRILL  PICTURE  "XXX" 

READ 

REPLACE  CCD  WITH  ISDRILL 
USE 

CASE  UPOPT  =  'NBC' 

STORE  T  TC  AACORR 

USE  E:  EST  INDEX  3:  ESTSSN 

FIND  GAASSN 

STORE  N  EC  TO  IN  NBC 

a  6,47  GET  INNBC  PICTURE  "XXXXXX" 

READ 

REPLACE  NEC  WITH  INNBC 
USE 

CASE  UPCPT  =  'INTEFICF  GUARD' 

STORE  T  1C  AACORF. 

USE  E:  EST  INDEX  B:  ESTSSN 

EIND  G  A  ASSN 

STORE  TNI  TO  ININT 

a  7,27  GET  ININ  1  PICTURE  "XXX" 

READ 

REPLACE  INI  WITH  ININT 
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USE 


CASE  UPOPT  =  ' MAR  K  EMANSHI?' 

STORE  T  1C  AACORR 

USE  E:  ESI  INDEX  B:ESTSSN 

FIND  &AASSN 

STORE  MKS  TO  INMKS 

a)  7.58  GET  INMKS  PICTURE  "XXXXXX" 

READ 

REPLACE  PRS  WITH  INMKS 
US  E 

CASE  UPOPT  *  'FIRST  AID' 

STORE  T  TO  AACORR 

USE  E:  EST  INDEX  E:ESTSSN 

FIND  8  A  ASSN 

STORE  AID  TO  INAID 

d  8,27  GET  INAIE  PICTURE  "  X  X  XX  XXX  XXXX  " 
READ 

REPLACE  AID  WITH  INAID 
USE 

CASE  UPOPT  =  'EQUIP  &  UNIFORM* 

STORE  T  TC  AACORR 

USE  E:EST  INDEX  E:ESISSN 

FIND  &AASSN 

STORE  UNI  TO  INUNI 

a  9,27  GET  INUNI  PICTURE  "XXX" 

READ 

REPLACE  CRI  HIT  H  INJNI 
USE 

CASE  UPCPT  =  'INDIVIDUAL  TACTICAL  MEASURES’ 
STORE  T  TC  AACORR 
USE  E: ES  T  INDEX  E:ESTSSN 
FIND  &AASSN 
STORE  TAC  TO  TNTAC 
a)  9,58  GET  INTAC  PICTURE  "XXXXX" 

READ 

REPLACE  TAC  WITH  INTAC 
USE 


CASE  UPOPT  =  • SHIM  QUAL' 

STORE  T  TC  AACORR 

USE  E : 6 U A L  INDEX  B:QUAL$SN 

FIND  &AASSN 

STORE  SW3MQUAL  TO  INSWQU 
a  11,19  CET  INSWQU  PICTURE  "XX " 
READ 

STORE  9  TC  ERR C FT 
DO  ERROR 

REPLACE  SWIHQUAL  WITH  INSWQU 
USE 

CASE  UPCPT  =  'RIFLE  QOAL' 

STOP  £  T  TC  AACORR 

USE  E:  QU  A  I  INDEX  B  :  QU  ALSS  N 

FIND  0  A  ASSN 

STORE  RF1SCOEI  TC  INEFL5C 
a  12,20  CET  IN2FLSC  PICTURE  "9 99" 
READ 

STORE  11  10  ERR  OPT 
DO  E  ERG  B 

REPLACE  BfLSCORE  WITH  INRFLSC 
USE 

STORE  3  TC  CALCCPT 
DO  CALCUIAT 

CASE  UPOPT  =  ' WEIG HI ' 
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STORE  T  1C  AACORR 

US  F,  A  *  F  E  F  S  INDEX  A:?ER3SN 

FIND  &AASSN 

STOFE  WEIGHT  TO  IN  WEIGH  T 

5)  12,58  GET  INW  EIGHT  PICTURE  "999" 

READ 

STORE  13  TO  EkRCPT 
DO  ERROR 

REPLACE  WEIGHT  WITH  I Ntf  EIGHT 
USE 

STORE  5  TC  CALC  C ET 
DO  CALCULAT 

CASE  UPOPT  =  '  PIST  CL  COAL* 

STORE  T  TC  AACOFR 

USE  E : Q  U  A I  INDEX  B  :QU  ALSS  N 

FIND  &  A  ASSN 

STORE  PSTSCORE  TC  INPSTSC 
&  13,20  CET  INPSTSC  PICTURE  "999" 

READ 

STORE  14  TO  ERROPT 
DO  ERROR 

REPLACE  PSTSCORE  WITH  INPSTSC 
USE 

STORE  4  TC  CALCCPT 
DO  CALCULAT 

CASE  UPOPT  =  • HEIG  HT' 

S^ORE  T  TC  A  ACC  RR 

USE  AlPEFS  INDEX  A:PERSSN 

FIND  &AASSN 

STORE  HEIGHT  TO  INHGHT 

S>  13,58  GET  INHGHT  PICTURE  "99" 

READ 

STORE  16  TC  ERRCPT 
DO  ERROR 

REPLACE  E EIGHT  WITH  INHGHT 
USE 

STORE  5  TC  CALCCPT 
DO  CALCULAT 

CASE  UPCPT  =  ’ELECTRONIC  WARFARE' 

STORE  T  TC  AACORR 

USE  3:INFCuISC  INDEX  5:IN?0SSN 

FIND  5  A  A  S  SN 

STORE  SLECWA3  TC  INZLEC 

a>  15,28  GET  INELSC  PICTURE  "XXXXXX" 

READ 

REPLACE  ELEC WAR  WITH  INELSC 
USE 

CASE  UPCPT  =  ’DRUG  A  3  U  S  E ' 

STORE  T  TC  AACORR 

USE  E:  IN  ECS  ISC  INDEX  ErINFOSSN 

FIND  SAASSN 

STORE  DRUG  TO  IN  DRUG 

a)  15,57  GET  IND  FUG  PICTURE  "XXXXXX" 
READ 

REPLACE  C  FUG  WITH  ISDRUG 
USE 

CASE  UPCPT  =  'CLD  WEATHER' 

STORE  T  TC  AACORR 

USE  E: I N  FCMISC  INDEX  B :  I N  F  G  3  5  N 

FIND  SAASSN 

STORE  CICWTHR  TC  INCLDWTR 

5)  16,28  GET  INCLDWIR  PICTURE  "XXXXXX" 

READ 

REPLACE  CLCWTHR  WITH  INCLDWIR 
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USE 

CASE  UPCPT  =  ‘ALCOHOL  ABUSE' 

STOHE  T  TC  AACO  RR 

USE  Ei IN  FCM ISC  INDEX  B: INFOSSN 

FIND  SAASSN 

STORE  ALCOHOL  TC  INALCH 

3  16,58  GET  INALCH  PICTURE  "XXXXXX" 

READ 

REPLACE  AICOHOL  WITH  INALCH 
USE 

CASE  UPCPT  =  ‘LAW  CF  WAP* 

STORE  T  TC  AACO  RR 

USE  R:  I  N  FCMISC  INDEX  B:INFOSSN 

FIND  &  A  ASSN 

STORE  LAWWAR  TO  INIAW 

2  17,28  GIT  INLAW  PICTURE  "XXXXXX" 

READ 

REPLACE  LAWWAR  WITH  INLAW 
USE 

CASE  UPOPT  =  ‘HUMAN  RELATIONS' 

STORE  T  TC  AACOBR 

USE  E:  IN  FCM  ISC  INDEX  ErINFOSSN 

FIND  SAASSN 

STORE  HUMPEL  TO  INHUM 

S  17,58  GET  INHOM  PICTURE  "XXXXXX" 

READ 

REPLACE  RUMPEL  WITH  INHUM 
USE 

CASE  UPCPT  =  'TRAINING  KOS  • 

STORE  T  TC  AACORR 

USE  B: I NFCMISC  INDEX  B:IN?OSSN 

FIND  SAASSN 

STORE  HCS  TO  INBOS 

a  18,27  GET  INMOS  PICTURE  "XXXX" 

READ 

REPLACE  MCS  WITH  INMOS 
USE 

CASE  UPOPT  =  'PERSONAL  AFFAIRS' 

STORE  T  TC  AACOBR 

USE  E:  IN  FCM  ISC  INDEX  B:  INFOSSN 

FIND  SAASSN 

STORE  PEFSAFFR  TC  INPERSAP 

a  18,58  GET  INP  EES  AF  PICTURE  "XXXXXX" 

READ 

REPLACE  EERSAFFR  WITH  INPERSAF 
USE 

CASE  UPCPT  =  'LEADERSHIP' 

STORE  T  TC  AACORR 

USE  B: I NFCMISC  INDEX  BlINFOSSN 

FIND  SAASSN 

STORE  LDFSHF  TO  I.UDR 

a  19,28  GET  INLCF.  PICTURE  "XXXXXX" 

PE  AD 

REPLACE  I.EPSHi'  WITH  TNLDR 
USE 

CASE  U  PCPT  =  * UCMJ  • 

STORE  T  TC  AACOBR 

USE  E:  IN  FCM  ISC  INDEX  B:  INFOSSN 

FIND  SAASSN 

STORE  UCMJ  TO  INUCMJ 

a  19,58  GET  INUCMJ  PICTURE  "XXXXXX" 

READ 
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REPLACE  CCMJ  WITH  INUCMJ 
USE 

CASE  UPCPT  =  'CHAR  &  PCRAL  ED* 

STORE  T  TC  AACOER 

USE  E: INJCMISC  INDEX  E: IN  FOSS N 

FIND  SAASSN 

STORE  CHFHCRED  TC  INCHRMOR 

$  20,28  CET  INC  HRttOR  PICTURE  "XXXXXX" 

READ 

REPLACE  CERMORED  WITH  INCHRHOR 
USE 


B.  I1B  CREATION  CONTBQL  BOOTINE 


*  Routine  Name:  Creatitr.prg 

*  Module  Bane:  Maintenance  Module 

*  Version :  6. 3.  0 

*  Author :D . I,  H  AEOSLEB 

*  Date:  2  Dec  83 

*  Variables  Csed:  crccmp,  aafin,  cragain 

*  Variables  Modified:  same  as  above 

*  Variables  Created:  same  as  above 

*  Variables  Released:  same  as  above 

*  Files  (cpenea/closed)  :  NONE 

*  Temporary  Fil^s  Created:  NONE 

*  Osing  Subroutines:  Maintain,  prg 

*  Description:  This  routine  controls  the  creation  of  ne 

*  ITR'S. 

STORE  E  TO  AAFINI 

CO  WHILE  .NOT.  AAFINI 
ERASE 

DC  ITESCRN 
DC  INI  AT  A 

STORE  F  TO  CBCOMF 

DC  WHILE  .NOT.  CRCCMP 
ERASE 

ACCEPT  "DO  YOO  WANT  TO  CREATE  ANOTHER  IIP  (Y/N)?" 
TO  CRAGAIN 
LO  CASE 

CASE  !  (CRAG  AIN)  =  *Y» 

STORE  T  TC  CRCOMP 

CASE  2  (CRAGAIN)  =  «N* 

STORE  T  TC  CRCOMP 
STORE  T  TC  AAFINI 


ENICASE 
ENCDO 
END  DC 

RELEASE  ALL  LIKE 
RELEASE  A A  E INI 

BSE 


C  R  ?  1 ' 


5ETU  P N 


I.  I1B  EAT  A  INITIALIZATION  BCUTINE 


*  Routine  Nane:  Indata. prg 

*  Module  Name:  Maintenance  Module 

*  Version :  6. 3.  1 

*  Author:  D.P.  Raeusler 

*  Dat^:  2  Dec  83 

*  Variables  Used:  aadate.  vssr.,  in*,  aassn 

*  Variables  Modified:  in*,  aassa 

*  Variables  Created:  in*,  aassn 

*  Variables  Released:  in*,  aassn 

*  Files  (cpeneu/closed)  :  a:pers(0/C),  b:est  (0/C)  , 

*  b :  mf  cmisc  (0/C)  ,  b:qual(0/C) 

*  Tenporary  Files  Created:  None 

*  Using  Subroutines:  Creatitr.prg 

*  Description:  This  routine  inserts  the  data  in  th 

*  training  record  fonat  on  the  screen  and  checks 

*  errcrs  m  the  data  entry.  The  data  is  then  inse 

*  the  data  base. 

STORE  AAIATE  TO  INDATE 

STORE  "LAST.  FIRST  HI.  '•  TO  INNAME 

STORE  "  "  TO  INRANK 

STORE  "  "  TO  INPRIPEN 

STORE  «  "  TO  INS  ECHOS 

STORE  "DEHM  YY"  TC  INEBTH 
STORE  «  "TO  INSSN 

STORE  "  "  TC  INCCMP 

STORE  «  "TO  INPLAT 

STORE  "DDMMYY"  TO  INUNDATE 
STORE  "DEMHYY"  TO  IN  E AS 
STORE  "  "  TC  INGAS 
STORE  "***"  TO  INCODE 
STORE  000  TC  INPFT1 
STORE  "DEtlMYY"  TC  IN PETDT1 
STORE  "***"  TO  INHIS 
STORE  000  TC  IN P  FT  2 
STORE  "DDHBYY"  TC  INEETDT2 
STORE  "***"  TO  INDRILI 
STORE  "  *  *  *  *  **"  TC  I  N  NEC 
STORE  "***"  TO  ININT 
STORE  "♦♦♦***"  TC  INPBS 
STORE  "♦♦*****♦***"  TC  INAIC 
STORE  "***"  TO  INUNI 
STORE  "♦****"  TO  INTAC 
STORE  "S  "  TO  INSWQU 
STORE  "CEMMYY"  TO  INSHDT 
STORE  "0C0"  TO  INRFLSC 
STORE  "CEMMYY"  TC  INFILDT 
STORE  "0 00"  TO  INHEIGHT 
STORE  "000"  TO  INPST  SC 
STORE  "DDMMYY"  TC  INESTDT 
STORE  "00"  TO  INHGHT 
STORE  "♦*****"  TC  INEIEC 
STORE  "*****♦"  TO  INLEUG 
STORE  »<******■•  to  I NCIDWTR 
STORE  "*«****»  TO  INALCH 
STORE  «****♦*»  TC  INIAV 
STORE  *>****♦*'<  to  INF.UM 
STORE  "****"  TO  INMOS 
STORE  "*«♦***»  TC  IN  PERSAF 
STORE  "♦****+"  TC  INICR 
STORE  •<******'«  TO  INUCMJ 
STORE  "♦*****"  TO  INCHRMOR 
STORE  F  TO  1NCOMMNT 
STORE  F  TO  INWTCCNT 
STORE  "  "  TC.  IN  P  FT  1  Cl 
STORE  "  "  TC  INPFT2CL 
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M  t-hiO 


STORE  " 
STORE  " 


"  TO  IN  RFLQU 
"  TO  INPSTQU 


6  7  GET 
22  GET 


6 6  GET 
27  GET 


27  GET 
50  GET 
65  GET 
27  GET 
47  GET 
27  GET 
se  GET 
27  GET 
27  GET 
5e  GET 
,19  GET 
,28  GET 
,20  GET 
,35  GET 
,58  GET 
,20  GET 
,35  GET 
,58  GET 


IT  INN  AM  E  PICTURE  " 
ET  INRANK  PICTURE  " 
ET  INPRIHZM  PICTURE 
ET  INSECMOS  PICTURE 
ET  INBRTF  PICTURE  " 
ET  INS  S N  PICTURE  ”9 
ET  INCOMP  PICTURE  " 
ET  INPLAT  PICTURE  " 
ET  INJNDATE  EICTURE 
ET  INEAS  PICTURE  "X 
ET  INGAS  PICTURE  "I 
ET  3NCODE  PICTURE  " 
ET  INPPT1  PICTURE  " 
ET  INPFTDT 1  PICTURE 
ET  INHI  S  PICTURE  "X 
ET  IN? FT 2  PICTURE  " 
ET  INPFTDT2  EICTURE 
ET  INDRTLL  PICTURE 
ET  TNNBC  PICTURE  "X 
ET  HUNT  PICTURE  "X 
ET  INMKS  PICTURE  "X 
ET  IN&1D  PICTURE  "X 
ET  INUNI  PICTURE  "X 
ET  IKTAC  PICTURE  "  X 
GET  INSHCU  PICTURE 
GET  INSWDT  PICTURE 
GET  IN R F IS C  EICTURE 
GET  INRPLDT  EICTURE 
GET  INWEIGHT  EICTOR 
GET  INPSTSC  PICTURE 
GET  INPSTDT  EICTURE 
GET  INHGbT  PICTOP.E 
GET  INELEC  PICTURE 
GET  INDRUG  PICTURE 
GET  INCLDWTE  EICTUR 
GET  INALCH  PICTURE 
GET  INLAW  PICTURE  « 
GET  INHOM  PIC1URE  " 
GET  INMOS  PICTURE  " 
GET  INPEFSAF  PICTUR 
GET  INLDE  PICTURE  " 
GET  INUCMJ  PICTURE 
GET  INCH  BMOR  PICTUR 
GET  INCOHMNT  PICTUR 


XXX X XX XX XX XX XXX XXX XXX X  XXX XX XXX" 
XX" 

"9999" 

" 9  S9  9" 

XXXXXX" 

99S99999" 

XXXXXX  " 

XXXXXXXXX" 

"XXXXXX" 

XXXXX" 

II 

XXX" 

999  " 

"XXXXXX" 

XX" 

999" 

"XXXXXX" 

"XXX" 

XXXXX" 

XX" 

XXXXX" 

XXXXXXXXXX" 

XX" 

XXXX" 

"XX  " 

"XXXXXX" 
ug  99  11 

"XXXXXX" 

E  "999" 
it  9  5  9  ti 

"XXXXXX" 
it  9  9 11 

"XXXXXX" 

"XXXXXX" 

E  "XXXXXX" 

"XXXXXX" 

XXXXXX" 

XXXXXX" 

XXXX" 

E  "XXXXXX" 

XXXXXX" 

"XXXXXX" 

E  "XXXXXX" 

E  "  X" 


READ 

STORE  INSSN  TO  A  ASS  N 
STORE  1  1C  ERROPT 
EO  WHILE  ERFOPT  <  17 
a  24,0  SAY  " 

a  24,1  SAY  "  ERROR  CHECKING  IN  PROGRESS" 
DC  EnFCR 

RTCRE  (ERROPT  ♦  1)  TO  ERROPT 
ENDDC 

IF  INCCMMNT 

SAVE  TO  A:INFILE  All  LIKE  IN?????? 
RELEASE  ALL  LIKE  IN?????? 

RELEASE  ALL  EXCEPT  AA?????? 

DO  CRTCMMNT 
DC  HR 1C KENT 

RESTCFE  FROM  A:  IN  FILE  ADDITIVE 
DO  I1FSCFN 
2  1,13  SAY  INNAME 
a  1.52  RAY  INRANK 


2 

2 


3  2 
a  2 
3  3 
3  3 
a  3 

a  3 
a  3 
a  a 
a  u 
a  a 
a  5 
a  5 
a  5 
a  6 
a  6 
a  7 
a  7 
a  8 
a  9 


6  1  SAY  INPRIMEM 

6 6  SAY  INSECMOS 

23  SAY  INERT  B 

US  SAY  INSSN 

1  1  SAY  INCOMP 

23  SAY  INPLAT 

3  £  S  AY  1NJND  ATE 

51  SAY  INEAS 

69  SAY  INGAS 

26  SAY  INCODE 

51  SAY  INPPT1  USING  "99  9" 

66  SAY  INPPTDT1 

26  SAY  INHIS 

51  SAY  INPPT2  USING  "999" 

66  SAY  INPFTDT2 

28  SAY  INDHIIL 

48  SAY  INN BC 

26  SAY  INI  NT 

59  SAY  INMKS 

26  SAY  INAID 


a 

9: 

59  S 

AY  INTAC 

a 

,20 

SAY 

IN  S  W  QU 

a 

1 1 

,29 

SAY 

I N  S  W  DT 

a 

12 

,;i 

SAY 

INRFLSC 

a 

12 

,36 

SAY 

INRFLDT 

a 

12 

SAY 

IN  W  E  IGHT 

a 

13 

,21 

SAY 

INPSTSC 

a 

13 

,26 

SAY 

INPSTDT 

a 

13 

,?9 

SAY 

INHGHT 

a 

15 

,29 

SAY 

IN  EL  EC 

a 

15 

,59 

SAY 

INDRUG 

a 

16 

SAY 

INCLCWTR 

a 

1  6 

SAY 

INALCH 

a 

17 

SAY 

INLAW 

a 

17 

SAY 

INHU  H 

a 

18 

SAY 

INMOS 

a 

1  8 

,59 

SAY 

IN  PE  RS AF 

a 

19 

\W 

SAY 

INLDR 

a 

19 

SAY 

IN UC  MJ 

a 

20 

.  29 

SAY 

INCHRMOR 

a  2i,n 

INDIF 

SAY 

INCOMMNT 

a  24,1  SAY  "STORING  I  AT  A  IN  THE  SYSTEM  ON  DISK" 

USE  A  :E  EES  INDEX  AzPEBSSN,  AzALPHPERS,  A:MOSNDX 
APPEND  BLANK 

BEPLACE  NAME  WITH  !  (INNAME) 

REPLACE  SSN  WITH  INSSN 

EEPLACE  BANK  WITH  INBANK,  PRIMEMOS  WITH  IN ?RI MEM 
REPLACE  SEC MOS  WITH  INSECMOS,  CCMPANY  WITH  !  (INCOMP) 
FEPLACE  PLATOON  WITH  !  (INPLAT),  JOINDATE  WITH  IN J  N  DATE 
REPLACE  EAS  WITH  INEAS.  BF.THEATE  WITH  INBRTH 
BEPLACE  COMMENT  WITH  INCCMH NT 

BEPLACE  EEIGHT  WITH  1NHGHT,  WEIGHT  WITH  INWEIGHT 
REPLACE  UCCNT  WITH  IKWTCONT,  GASMASK  WITH  ’(INGAS) 

USE  EtESI  INDEX  EzESTSSN 
APPEND  BLANK 

BEPLACE  SSN  WITH  INSSN,  COC  WITH  !  (INCODE> 

REPLACE  HIS  WITH  l(IEHIS),  COD  WITH  ’.(INDRILL) 

BEPLACE  INT  WITH  !  (IN  3NT) ,  AID  WITH  !  (INAID) 

REPLACE  DNI  WITH  ijlNUNlf 

REPLACE  EFT1RAW  WITH  1NFFT1  ,  FF11DATE  WITH  INPFTDT1 
BEPLACE  EFT2RAW  WITH  1NPFT2  ,  PFT2DAIE  WITH  INPFTDT2 
REPLACE  NEC  WITH  I  (I  N  NBC) 

BEPLACE  EKS  WITH  !  (INMKS), TAC  WITH  »  (INTAC) 


LSE  BzQCAL  INDEX  B:  QQ  ALSSN 
APPEND  ELANK 


FEPLACE  SSN  WITH  INSSN,  SWI HQOAL  WITH  !(INSWQU) 

REPLACE  SWIKDATE  WITH  INSWDT,  FFLDATE  WITH  INRFLDT 

EEPLACE  FFLSCOHE  WITH  INRFLSC 

FEPLACE  ESTSCORE  WITH  INPSTSC 

REPLACE  ESTCATE  WITH  INFSTDT 


DSE  ElINECMISC  INDEX  EiINFOSSN 
APPEND  BLANK 

FEPLACE  SSN  WITH  INSSN,  ELECWAR  WITH  ! (INELEC) 
CLDWTHR  WITH  !(INCLCWT5) 

LAWWAR  WITH  1  (INLAW )  ,  HOS  WITH  !<INMOS) 
DRUG  WITH  !  (IFDROG)  .  LDRSHP  WITH  INLDR 


REPLACE 
EEPLACE 
REPLACE 
REPLACE 
FEPLACE 
REPLACE 
STORE  1 
DO  WHILE 


ALCCHOL  WITH 
FERSAFFR  WITE 
CHRMt'RED  WITH 
TO  CALCOPT 
CAICOPT  <  6 


(INALCH)  , 
!  jINP  ER5A 


HUMREL  WITH  !  (INHUK) 

F)  ,  UCHJ  WITH  J(INUCMJ) 
INC  HBMCR) 


DO  CAICULAT 
STCRE  (CALCOPT  ♦ 
ENDDC 


1)  TO  CALCCPT 


RELEASE  ALL  EXCEPT  A  AT????? 
ERAS  E 

STORE  AASSN  TO  VSSN 
10  ITFSCFN 
DO  GE1EAIA 


STORE  F  TO  INDONE 
DO  WHILE  NCT.  INDONE 
ACCEPT  “IS  THIS  DATA 
DC  CASE 


COR  R  EC  1  ( X/N)  ?"  TO  INAGAIN 


CASE  ! 

(INAGAIN) 

= 

«  Y» 

STC 

RE  T  TO  I 

NDC 

NE 

CASE  ! 

(INAGAIN) 

s 

’  N  * 

DO 

UPDATA 

STC 

RE  T  TO  1 

NDO 

H  -U 

E 

NtCASE 

ENDD 

C 

PELE 

A! 

EE  ALL 

EXCEPT  A  A 

<?? 

??? 

FETO 

F  N 

J.  D  IT  1  EBEOR  CBECKI1G  ROUTIHE 


*  Routine  Name;  Error. prg 

*  Module  Name:  Maintenance  Module 

*  Version;  €.3.1  .1 

*  Author:  E.P.  Haeusler 
•Date:  2  Dec  83 

*  Variables  Used:  aadate.  in*, 

*  Variables  Modified:  in* 

*  Variables  Created:  inerror 

*  Variables  Released:  none 

*  Piles  (cpened/closed)  :  none 

*  Temporary  Piles  Created:  ncne 

*  Using  Subroutines:  Creati tr . prg,  updata.prg 

*  Description:  This  routine  dees  the  error  checinq  for  the 

*  information  entered  in  each  cf  the  appropriate  fields. 

*  This  errer  checking  is  not  very  extensive  because  this  is 

*  aprototype  system  but  can  be  increased  if  the  need 

*  arises. 


STORE  AAIATE  TO  INDATE 
STORE  T  TC  INERRCR 
DO  WHILE  INERROR 

STCRE  F  TO  INERROR 
DC  CASE 

CASE  ERROPT  *  1 

IP  .NOT.  ($  (INRANK  ,  1 ,  1}  =  •£•  .OR.  $  (INR  AN  K ,  1  ,  1) 
=  V  .OR.  S  (INRANK,  1.  1)  =  'O') 

STOKE  T  TC  INEREOR  ' 

ti 


SAT 

SAT 

GET 


'•IMPROPER  GRADE  --  REENTER" 
INRANK  FICTURE  "X9" 


§  24,0 
d  24.1 
a  1.51 
READ 
ENCIF 

CASE  ERROPT  =  2 

IE  .NOT.  (VAL  (J  (INERT’d,  1 
VAL(|fINEFTH,3,  2  ‘  * 

VAL  (mINERTH.5,2 
STORE  T  TC  INERR 
SAT  " 

SAT  "  IMPROEER  DATE  --REENTER" 
GET  INBRTB  EICTURE  "999999" 


r< 


■ii” 


<  31  .AND. 

AND.  ; 

VAL (J (INDATE, 5, 2)  )  ) 


a  24,0 
a  24,1 

a  2,22 

READ 
EN  DIP 

CASE  ERROPT  =  3 

IF  .NOT.  (VAL($(INJNCATE,1,2))  <  31  .AND.; 

VAL  (SfINJNDATE,  3,2))  <  13  .AND. 

VAL($(INONDATE,  5,2}  <*  V  AL  ( S  ( IN  D  ATE  ,  5 , 2 ) )  ) 

STORE  T  TC  INER  FOE 
«» 

"  IMFRCEEF  DATE  --  REENTER " 

INJN  DATE  PICTURE  "999999" 


SAT 

SAT 

GET 


'A 


a  24,o 
a  24,i 
8  3,37 
READ 
EN  IIP 

CASE  ERROPT  =  4 

If  .NOT  (J  (INGAS) 

!  (INGAS)  =  •  L» 

STORE  T  TC 
3  24  ,0  SAT 
a  24,1  SAT 
a  3,68  GET 
READ 
ENCIF 

CASE  ERROPT  *  5 

IF  .NOT.  (I  MPT  1  <  301) 
STORE  T  IC  INER  ROE 
a  24  ,0  SAT  » 
a  24,1  SAT  "IMPROPER 


=  '  S’  .OR.  (  (INGAS)  =  *  M '  .C5. 


INER  ROE 

«l 

"  IMFROPER  GAS  MASK 
INGAS  FICTURE  "X" 


SIZE  --  REENTER" 


PFT  SCORE  — 


21  1 


REENTER" 


a  4-50  GE 
READ 
ENDIF 

CASE  ERROPT  =  € 
IF  .NOT.  (VA 


INPFT1  FI  CTO  RE  "999" 


IF  .NOT.  (VAI  ($  (INEFTCT1,  1.2)  )  <  31  .AND.; 

VAL  (?  (INEFTDT1,  3,2))  <  13  .AND.; 

VAL(S(INEFTDT1,  5,2)  =  VAL  (S  (IN DATE, 5 ,2)  )  . 

INPFTDT1  =  '  DDM  r,  Y  Y  * ) 

STORE  T  IC  INERROR 
a  24,0  SAY  " 

a  24,1  SAY  "  IMFROFER  P FT  DATE  —  REENTER" 
a  4,65  GET  INPFTDT1  PICTURE  "999999" 

READ 

ENDIF 

CASE  ERROPT  *  1 

IF  .NOT.  (INFFT2  <  30  1) 

5TORE  T  TC  INERROR 
a  2  4  ,0  SAY  " 

a  24,1  SAY  "IMPROPER  PFT  SCORE  —  REENTER" 
a  5,50  GET  INPFT2  PICTURE  "999" 

READ 

ENDIF 

CASE  ERROPT  =  6 

IF  .NOT.  (VAl($(INPFTCT2,1,2))  <  31  .AND.; 

VAL  (5(INFFTDT2,  3,2)  <  13  .AND.; 
VAL($(IN£FTDT2,  5,2  )  =  V  AL  (  $  (IN  DATE,  5  ,  2)  ) 


VAL  ( S ( IN  F FTDT2,  3,2)  <  1 
VAL($(IN£FTDT2,  5,2))  = 

IN  PPTDT2  =  ' DDM  M  Y  Y  * ) 


STORE  T  TC  INERROR 
3  24  ,0  SAY  « 

a  24,1  SAY  "  IMPROPER  PFT  DATE  —  REENTER" 
a  5,65  GET  INPFTDT2  PICTURE  "999999" 

READ 

ENDIF 

CASE  ERROPT  =  5 

IF  .HOT.  (S  IINSWQU  ,  1  ,  1)  =  'S*  .OR.  $(INSWQU.1, 

=  'S'  .OF.  INSWQU  =  'HQ'  .OR.  INS-QU  =  1  uq 
STORE  T  TC  INEREOR 
a  24,0  SAY  " 

a  24,1  SAY  "  IMEFCPER  ENTRY  --  REENTER" 
a  11,19  GET  INSWQU  PICTURE  "XX" 

READ  T 

ENPIF 

CASE  ERROPT  =  10 

IF  .NOT.  (  V  AI  (S  (IN  S4DT,  1. 2)  )  <  31  .AND.; 

VAL(i(lNSNDT,3,  2))  <  13  .AND.; 

VAL (SjlNSWDT,5,  2))  <=  VAL  (5  (IN DATE, 5,  2)  )  . 

INSWET  =  'DDMMYYM 
STORE  T  TC  INEREOR 
a  24,0  SAY  " 

a  24,1  SAY  "  IMPROPER  DATE  --  R ENTER " 
a  11,28  GET  INS  W  DT  FICTURE  "999999" 

READ 

ENEIF 

CASE  ERROPT  =  11 


c?.; 


—  RENTER" 
"999999" 


.NOT.  (INFFLSC 
STORE  T  TC  INERROR 
3  24,0  SAY  " 

a  24,1  SAY  "ISPFCPER  RIFLE 
a  12,20  GET  INRPLSC  PICTURE 
READ 
FNEIF 


L  SC  <  '251') 
INERROR 


CASE  : 
IF 


SCORE 

n  9  g  911 


RE  ENT  Si 


1,2)  )  <  31 
13  .AND.; 


RROPT  =  12 

.NOT.  (VAL  (3  (IN  RFLDT,  1. 2)  )  <  31  .AND 

VAL(|(f  NFFLDT,3  ,2)  )  <  13  .AND.; 

VAL  (I  (INRFLDT, 5  ,2)  )  <=  V A L  (  S  (I N D A ?E , 
INRFLDT  =  'DDMMYyM 
STORE  T  TC  INERECR 
a  24,0  SAY  " 

a  24,1  SAY  "IMP  rOPFR  DATE  --  REENTER 
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GET  INRFLDT  PICTURE  "999999" 


a  12,35 
READ 
EDDIE 

CASE  ERROPT  =  15 

IF  INWEIGHT  > 

STORE  T  TC 
5)  24  ,0  SAT 
3  24,1  SAY 
2  12,58  GET 
READ 
ENDIF 

CASE  ERROPT  =  14 

IF  .NOT.  (INESTSC  <  *301*) 
STORE  T  1C  INERROR 
a  2  4  ,0  SAY  " 


•300  '  .CR. 

ISER ROB 

ii 

"  IMPROPER  WEIGHT 
INWEIGHT  PICTURE 


INWEIGHT  <  ’070* 


--  REENTER" 
"999  " 


24,1 


SAY  ' 
GET 


IMPROPER  PISTOL  SCORE  --  REENTER 


INPSTSC  PICTURE  "999" 


,  AN  D , 


a  _  , 
a  13,20 
READ 
ENDIF 

CASE  ERROPT  =  15 

IF  .NOT.  ( V  A  L  ($(I  NPSTDT,  1  .2M  <  31 

VAL  (^{INFSTDT,  3,2)  )  <  13  -AND.; 
VAL($(INFSTDT,5.2)  <3  V  A  L  (  $  (INDATE, 5, 2)  ) 
IN  P  5  IDT  =  'DDHMYY*  ) 

STORE  T  TC  INERROR 
3  24  ,0  SAY  " 

a  24,1  SAY  "IMPROPER  DATE  --  REENTER" 
a  13,35  GET  INPSTLT  PICTURE  "999999" 

READ 

ENDIF 

CASE  ERROPT  =  16 

IF  .NOT.  (INHGHT  <  ’78*  .AND.  INHGHT  >  *64') 
STORE  T  TC  INERROR 
a  24  ,0  SAY  " 


CR 


a  24,i 
a  13,58 
READ 
ENDIF 
ENECASE 
ENDDC 
RETURN 


SAY  "IMPROPER  HEIGHT  --  REENTER" 
GET  INHGHT  PICTURE  "99" 
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K.  CALCULATION  SOOTHE 


* 


*  Ecutir.e  Name:  Calc ulat. cr q 

*  Module  Sane:  Maintenance  Module 

*  Version:  6.3.  1  -2 

*  Author:  t.P.  Haausler  • 

*  Date :  2  Esc  83 

*  Variables  Used:  calccpt,  aassn,  aadare,  brthdate,  age, 

*  no,  in* 

*  Variables  Modified:  age,  nun,  in* 

*  Variables  Created:  age.  ns,  in* 

*  Variables  Released:  all  except  aa?????? 

*  Files  (c/c):  a:pers<o/c),  b:qual(o/c),  b:est(o/c) 

*  Temporary  riles  Created:  none  • 

*  Using  Subroutines :  Updata.prg,  irdata.prg 

*  Description:  This  routine  aces  the  calculations  that  a 

*  triggered  by  the  entry  of  data  into  certain  fields  of 

*  ITR.  These  calculations  reconstruct  the  tables  found 

*  the  training  orders. 


ro  CASE 

CASE  CALCOPT  =  1 

USE  A  :PERS  INDEX  A:PEPSSN 
FIND  6USSN 
IF  INFFT1  >  0 
STCRE 
<VAL(S 
STCRE  , 

(V  AL($  /] 

If  (IS  <  o 

STORE  AGE  -  1  TC  AGE 
EN  El? 

USE  3 :  EST  INDEX  B:ESTSSN 
FIND  &AASSN 
IF  PFT1RAW  >=  285 

STORE  ’S'  TO  INPFT 1CL 
REPLACE  EET1CLS  S  WITH  LNPPT1CL 
a  4 ,57  SAY  INPPT1CL 
RELEASE  INPFT1CL 
USE 
ELSE 

IF  AGE  <*  26 

STORE  IFT1RAK  TC  IFFTlRAW 
ENDIF 

IF  AGE  <  40  .ANC.  AGE  >  26 

STORE  (FFT1RAW  ♦  25)  TO  IPFT1RAW 
ENDIF 

I?  AGE  >  39 

STORE  (PFT1  SAW  ♦  50)  TO  IFFTlRAW 
ENDIF 


IF  IFFTlRAW  <-  134 

STORE  'U*  TO  INFFT1CL 
REPLACE  PFT1CLSS  WITH  INPFT1CL 
S  4,57  SAY  INPFT1CL 
RELEASE  INPFT1CL 
USE 
ENDIF 

IF  IFFTlRAW  <=  174  .AND.  I PF T 1  RAW  >  134 

STORE  *3*  TO  INFFT1CL 
REPLACE  PFT1CLSS  WITH  IN PFT 1  CL 
3457  SAY  I NFFT1CL 
RELEASE  INPFT1CL 
USE 
ENDIF 

IF  IFFT1FAW  <=  224  .AND.  I PFT 1  RAW  >  174 
STORE  »  2’  TO  INPFT1CL 
REPLACE  PFT1CLSS  WITH  INFFT1CL 
S  4,57  SAY  I NFF  1 1  CL 


t 


2  1  4 


H*rf  (  f 
y  trcD 


RELEASE  INPFT1CL 
USE 
ESDI  F 

IF  IFFT1RAW  >  224 

STORE  '  1  •  TO  IN F FT  1  CL 
REPLACE  PFT1CLSS  WITH  INPFT1CL 
a  4,57  SAY  I NPFT1CL 
RELEASE  INPFT1CI 
USE 
ENDIF 
ENTIF 
ENC1F 

CASE  CALCOPT  =  2 

USE  A:PERS  INDEX  A:PERSSN 
FIND  EAASS N 
IE  INFFT2  >  0 

SICRE  (VAL  (i  (AADATE,5,2)  ) 

V  A!  ($  (BRTHDATE,  5,2)  )  )  TO  AGE 
STCRE  (VAL(S(AADATE,3,2)  ) 

VALjS  (BRTHDATE,  3,2  ))  )  TO  MM 
IF  MM  <  0 

STORE  AGE  -  1  TC  AGE 
ENEIF 

USE  B:EST  INDEX  B:  ESTSS  N 
FIND  6AASSN 
IF  PFT2RAW  5=  285 

STORE  '  S  '  TO  IN  PFT2CL 
REPLACE  EFT2CLSS  WITH  I NP  FT  2  CL 
a  5,57  SAY  INPFT2CL 
RELEASE  INPFT2CL 


IF  AGE  <=  26 

STORE  EFT2RAW  TC  IPFT2  RAW 
ENDIF 

IF  AGE  <  40  .  AN  I .  AGE  >  26 

STORE  (PFT2RAW  ♦  25)  TO  IPFT2RAW 
ENDIF 

IF  AGE  >  29 

STORE  (PFT2 RAW  ♦  50)  TO  IPFT2RAW 
ENDIF 

IF  IPFT2FAW  <=  134 

STORE  'U'  TO  INPFT2CL 
REPLACE  FFT2CLSS  WITH  INPFT2CL 
3  5,57  SAY  I NPFT2CL 
RELEASE  INPFT2CI 


USE 


ENDIF 

IF  IPFT2FAW  <=  174  .AND.  IPFT2  RAW  >  134 
STORE  *3*  TO  INEFT2CL 
REPLACE  PFI2CLSS  WITH  INPFT2CL 
3  5,57  SAY  I NFFT2CL 
RELcASE  INPFT2CL 
USE 


Eli  DI  F 

IF  IPFT2EAW  <=  224  .AND.  IPPT2RAW  >  17u 
STORE  *2*  TO  IN  PFT  2CL 
REPLACE  PF72CLSS  WITH  INFFT2CL 
3  5,57  SAY  INPFT2CL 
RELEASE  INPFT2CI 


USE 
END  I  F 

IF  IFFT2RAW  >  22u 

STORE  »1 •  TO  IN  EFT2CL 

REPLACE  PFT2CLSS  WITH  INPFT2CL 

3  5,57  SAY  INEFT2CL 

RELEASE  INPF12CI 

USE 


ENDIF 
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>=  '190* 


RFLSCORE  >=  '210' 


B:QU ALSSN 


ENDIF 
ENCIF 

CASE  CALCOPT  =  3 

USE  ElQUAL  INDEX  E:QU  ALS  SN 
FIND  CAASSN 
It  RFLSCORE  >  'C' 

IF  RF  LS  CORE  <  *19  0* 

STOR  E  'UN*  TO  I  NF.FIQU 
REPLACE  RELQUAL  WITH  INRFLQU 
S  12  ,27  SAY  INRFLQU 
RELEASE  INRFLQU 
ENCIF 

3E  RFLSCORE  <  '210'  .AND.  RFLSCGRE 
STORE  'MB'  TC  INRFLQU 
REPLACE  RELQUAL  WITH  INRFLQU 
a  12.27  SAY  INRFLQU 
RELEASE  INRFLQU 
ENEIP 

IF  RFLSCORE  <  •  220  «  .  AND 

STORE  • SS*  TC  I NRFIQU 
REPLACE  EFLQOAL  WITH  INRFLQU 
a)  12  .27  SAY  INRFLQU 
RELEASE  INRFLQU 
ENCIF 

IF  RFLSCORE  >*  *  22  0' 

STORE  'EX'  TC  I NRFIQU 
REPLACE  RELQUAL  WITH  INRFLQU 
a  12  .27  SAY  INRFLQU 
RELEASE  INRFLQU 
ENCIF 
USE 
ENCIF 

CASE  CALCOPT  =  4 

USE  B:QUAL  INDEX 
FINE  SAASSN 
IF  ESTSCOH  E  >  'O' 

IF  PSTSCOKE  <  •  180  ' 

STORE  *  U  N '  TO  I SFSTQU 
REPLACE  ESTQUAL  WITH  INPSTQU 
3  13.27  SAY  INPSTQU 
RELEASE  INESTQU 
ENCIF 

IF  PSTSCORE  <  '210'  .AND.  P5TSCORE 
STORE  'MM*  TO  INF5TQU 
REPLACE  ESTQUAL  WITH  INPSTQU 
a  13.27  SAY  INPSTQU 
RELEASE  INPSTQU 
ENCIF 

IF  PSTSCORE  <  '  250  «  .AND.  ESTSCORE  >  = 
STORE  '  SS*  TO  INPSTQU 
REPLACE  ESTQUAL  WITH 
a  13.27  SAY  INPSTQU 
RELEASE  INESTQU 
ENCIF 

IF  PSTSCORE  >=  *25  0  ' 

STOR  E  '  EX'  TO  I NPSIQO 
REPLACE  ESTQUAL  WITH  INPSTQU 
a  13.27  SAY  INPSTQU 
RELEASE  INFSTQU 
ENCIF 
USE 
ENCIF 

CASE  CALCOPT  =  5 

USE  A :PERS  INDEX 
FIND  6AASSN 
STCFE  T  TO  INWTCON 
IF  HEIGHT  =  '6U»  . 

WEIGHT  >=  '  1 C  5  * 

STCRE  F  TO  INWTCCNT 


>=  '180' 


10' 


INPSTQU 


A :  PE  RSSN 


AND.  WEIGHT  <=  » 1o0'  . AND, 


2  1  6 


REELACE  WTCCNT  WITH  INWTCONT 
3  11,59  SAY  INWTCONT 
ENCTF 

IE  E  EIGHT  *  *65’  .AND.  WEIGHT  <  = 
WEIGHT  >=  '106* 

STCRE  F  TO  INWTCONT 
REELACE  WTCCNT  WITH  INWTCONT 
3  11,59  SAY  INWTCONT 

IF  ^HEIGHT  =  *66*  .AND.  WEIGHT  <= 
WEIGHT  >=  '  1 C  7  * 

STCRE  F  TO  INWTCONT 
REELACE  WTCCNT  WITH  INWTCONT 
a  11,59  SAY  INWTCONT 
E  N  D I  F 

IF  HEIGHT  =  '  6“}*  .AND.  WEIGHT  <  = 

WEIGHT  >=  '111* _ 

STCRE  F  TO  INWTCONT 
REPLACE  WTCCNl  WITH  INWTCONT 
3  11,59  SAY  INWTCONT 

IF^HEIGHT  *  '68*  .AND.  WEIGHT  <= 
WEIGHT  >=  '  1 15* 

STCRE  F  TO  INWTCONT 
REELACE  WTCCNT  WITH  INWTCONT 
_3  11,59  SAY  INWTCONT 

IELEE1GHT  =  *69*  .AND.  WEIGHT  <  = 
WEIGHT  >-  *119* 

STCRE  F  TO  INWTCONT 
REELACE  WTCCNT  WITH  INWTCONT 
3  11,59  SAY  INWTCONT 

IF^HEIGHT  *  *  7  C  *  .AND.  WEIGHT  <  = 
WEIGHT  >=  *113* 

STCRE  F  TO  INWTCONT 
REELACE  WTCCNT  WITH  INWTCONT 
a  11,  59  SAY  INWTCONT 

r  WTT  P 

IF  HEIGHT  =  '  7  1*  -AND.  WEIGHT  <  = 
WEIGHT  >=  *127* 

STORE  F  TO  INWTCONT 
REELACE  WTCCNl  WITH  INWTCONT 
3  11,59  SAY  INWTCONT 
ENCIF 

IF  HEIGHT  =  *72*  .AND.  WEIGHT  <= 
WEIGHT  >=  *131* 

STCRE  F  TO  INWTCONT 
REELACE  WTCCNT  WITH  INWTCONT 
3  11,  59  SAY  INWICO  NT 
FNCIF 

IF  HEIGHT  =  '75'  .AND.  WEIGHT  <= 
WEIGHT  *>=  *135* 

STCRE  F  TO  INWTCONT 
REPLACE  WTCCNT  WITH  INWTCONT 
3  11,5  9  SAY  INWTCONT 

IF^HEIGMT  =  *7«*  .AND.  WEIGHT  <= 
WEIGHT  >=  '  129* 

STCRE  F  TO  INWTCONT 
REELACE  WTCCNT  WITH  INWTCONT 
a  11,59  SAY  INWTCONT 
£  l\  E I F 

IE  EE1GHT  =  '75*  .AND.  WEIGHT  <= 
WEIGHT  >=  *1U3* 

STCRE  F  TO  INWTCONT 
REPLACE  WTCC..I  WITH  INWTCONT 
3  11,59  SAY  INWTCONT 
ENLIE 


165'  .AND.  ; 


'170*  .AND.; 


•175*  .AND.; 


•18  1*  .AND.; 


•186*  .AND.; 


*192*  .AND.; 


•197*  .AND.; 


*203’  .AND.; 


=  *209’  .AND.; 


=  • 2 1 u  *  .AND. ; 


=  '219'  .AND.; 


IF  HEIGHT  =  '76'  .AND.  WEIGHT  <  = 
WEIGHT  >=  *  147* 

stcre  f  to  inwtconi 

REILACE  WTCCM  WITH  INWTCONT 
a  11,  59  SAY  INWTCONT 

runTp 

If  EE1GHT  “  *77*  .AND.  WEIGHT  <= 
WEIGHT  >=  '  1-1  ' 

STORE  F  TO  INWTCONT 
REPLACE  WTCCN1  WITH  IS  Vi  ICO  NT 
a  11,59  SAY  INWTCOHT 
F  N  t*  7  F 

IF  HEIGHT  *  *76'  .AND.  WEIGHT  <  = 
WEIGHT  >=  *  153 1 
STCRE  F  TO  INWTCONI  _ 

REPLACE  WTCCNI  WITH  INWTCONT 
a  11,59  SAY  INWTCO  NT 
ENEIF 

IF  IeELACETWTCCNT  WITH  INWTCONT 
a  11,59  SAY  INWTCONT 
ENEIF 
OSE 

ENCCASE 

RETUEN 


.AND 
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1.  CCHBINT  UPDATE  BGUTI1E 


*  Boutins  Name:  Hrtcunnt.prq 

*  (Jcoule  Name:  Maintenance  Module 

*  Version:  6.3.  1.3 

*  Author:  D.P.  Haeusler 

*  Date:  19  Jan  84 

*  Variables  Used:  aassn,  intxt* 

*  Variables  Modified:  intxt* 

*  variables  Created:  intxt* 

*  Variables  Released:  all  like  intxt* 

*  Files  (cpenea/closed)  :  a:cmiint  (o/c) 

*  Temporary  Files  Created:  cone 

*  Using  Subroutines:  indata. prq,  updata.prg 

*  Description:  This  routine  updates  the  information  stored 

*  in  the  data  base  on  an  individual. 


ERASE 

a  5,33  SAY  '’COMMENT 
CSE  A :CMMNT  INDEX  A : 
FIND  6 A ASSN 
IP  .NCI.  #  =  0 
2  8,2  SAY  INF0TXT1 

8.51  SAY  INFOTXT2 

9.2  SAY  INFOTXT3 

9.51  SAY  INF OT  XT 4 

10.2  SAY  1NFOTXT5 

10.51  SAY  INFOTXT6 

11.2  SAY  INFOTXT7 


S  ECT  ION  " 
CAHNTSS K 


11,51  SAY  INFOTXT8 


12 


2 
2 
a 
2 
a 
a 
a 
a 

a  12, 

STORE 

CTOS  t: 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

a  a,  i 

8,50 


9;  1  GET  INTXT3  PICTURE  "XXXXX 
9 , 5C  GET  INTXTU  PICTURE  "XXXX 

10.1  GET  INTXT  5  PICTURE  "XXXX 

10.50  GET  INTXT6  PICTURE  "XXX 

11.1  GET  I  NT  X  T  7  PICTURE  "XXXX 

11.50  GET  INTXT8  PICTURE  "XXX 

12.1  GET  INTXT9  PICTURE  "XXXX 
0  GET  INTXT0  PICTURE  "XXX 


2 
2 
a 
2 
a 
2 
a 
a 

a  1 

FEAu 

REPLACE 

FEPLACt 

REPLACE 

FEPLACE 

REPLACE 

FEPLACE 

REPLACE 

FEPLACE 

REPLACE 

FEPLACE 

ENDIF 

USE 

RELEASE 
FETU  FN 


4  SAY  INFOT  XT 9 
51  SAY  INFOTXTO 
INEOTXT1  TO  IN T XT  1 
INFOTXT2  TC  INTXT2 
INFOTXT3  TO  INTXT 3 
INFOTXT4  TC  INTXT4 
INFOTXT5  TO  INIXTS 
INFOTXT6  TC  INTXT6 
INFOTXT7  TO  INTXT7 
INFOTXT8  TO  INTXT8 
INFOTXT9  TO  INTXT9 
INFOTXTO  TC  INTXTO 
GET  1NTXT1  PICTURE  "XXXXX 
GET  I  NT  XT  2  PICTURE  "XXXX 


1NFCTXT1 
J1JEOTXT2 
INFCTXT3 
INFCTXT4 
INFCTXT5 
INFOTXTO 
INFCTXT7 
IN  ECTXT8 
INFCTXT9 
INFOTXTO 


WITH 
W  IT  P 
WITH 
WITH 
WITH 
W  ITP 
WITH 
W  ITH 
WITH 
W  IT  H 


INTXT  1 
INTXT  2 
INTXT  3 
INTXT  4 
INTXT5 
INTXT  6 
INTXT7 
INTXT  8 
INTXT9 
INTXT  0 


ALL  LIKE  INTXT? 


XXXXXXXXXXXXXXXXXXXX" 

XXXXXXXXXXXXXXXXXXXXX” 

XXXXXXXXXXXXXXXXXXXX" 

XXXXXXXXXXXXXXXXXXXXX" 

XXXXXXXXXXXXXXXXXXXXX" 

XX XXXXXXXXXXXXXXXXXXXX" 

XXXXXXXXXXXXXXXXXXXXX" 

XXXXXXXXXXXXXXXXXXXXXX" 

XXXXXXXXXXXXXXXXXXXXX" 

XXXXXXXXXXXXXXXXXXXXXX" 
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H.  CCHHfNT  CREATION  ROUTINE 


*  Routine  Name:  Crtctrtrnt.pr  g 

*  Module  Name:  Maintenance  Module 

*  Versicu:  6.3.  1  .a 

*  Author:  D.P.  Haeusler 

*  Date:  10  Jan  84 

*  Variables  Used:  newtext,  aassn 

*  Variables  Modified:  nevtext 

*  Variables  Created:  nevtext 

*  Variables  Released:  newtext 

*  Piles  (cpened/closed)  :  a:cmmnt  (o/c) 

*  Temporary  Files  Created:  none 

*  Using  Subroutines:  indata. pro,  updata.prg 

*  Description:  This  Routine  creates  a  comment  data  base 

*  file  for  the  individual  that  corresponds  to  the  aassn. 

*  This  file  when  created  has  10  fields  of  25  characters 

*  each  and  is  filled  with  asterisks. 


STORE  "********************  ******* 

CSF  A  :CMENT  INDEX  A : C  EMNTSS  N 
APPENE  El  AN  K 


TO  NEWTXT 


REPLACE 

REPLACE 

REPLACE 

REPLACE 

REPLACE 

REPLACE 

CSE 

RELEASE 

RETURN 


ESN  WITH 
INROTXT2 
INFCTXT5 
1NE0TXT7 
INFCTXT9 
1NFCTXTU 

NEWTXT 


AASSN,  INPCTXT1  WITH  NEWTXT 


WITH 
WITH 
WIT  H 
WITH 
WITH 


.»  m  X  L  *-»  X 

NEWTX  T, 
NEWTXT, 
NEWTXT, 
NEWTXT, 
NEWTX  1 


INPOTXT  3 
INFOTXT6 
INFOTXT8 
INFOTXTG 


WITH 

WITH 

WITH 

WITH 


NEWTXT 
NEWTXT 
NEWTXT 
N  EWTXT 
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8.  DELETE  ITB  RCUTIBE 


*  Routine  Same:  Deletitr.prq 

*  Hcdule  Kate:  Maintenance  nodule 

*  Version :  6.4 . 0 

*  author:  D.P.  Haeusler 

*  Date:  20  Jan  84 

*  Variables  Used:  del*,  aassn 

*  Variables  Modified:  del*,  aassn 

*  Variables  created:  del* 

*  Variables  Released:  del* 

*  Files  (opened/closed):  a:pers(o/c),  b:est(o/e)f 

b:  qual  (c/c) ,  b ; inf oaisc  (c/c) 

*  Temporary  Files  Created:  none 

*  Osing  Subroutines:  Caiijtain.  prg 

*  Description:  This  routine  delates  records  in  the  data 

*  base.  It  first  checks  to  see  if  the  record  is  in  the 

*  data  base,  displays  the  record#  queries  the  user  if  thi 

*  is  the  record  to  be  deleted,  and  deletes  the  record. 

STORE  F  10  DELPINI 
DO  WHILE  .NCT.  D  ELF  IN  I 
ERASE 

3  12,30  SAT  "ITR  10  BE  DELETED" 

ACCEPT  n  NATE  (LAST,  FIRST  MI. )====>"  TO  DELHAKE 

OSE  A  : F E FS  INDEX  A:ALPHPERS,  A:PESSSN,  A:MOSNDX 
FI8D  SDEINAME 
IF  .NCT.  *  =  0 

SICRE  SSN  TO  AASSN 
DC  ITFSCSN 
DO  GETDATA 
STORE  F  TO  DEL1HR0 
DO  WHILE  .NOT.  CELTHRU 

3  2370  SAY  "  IS  THIS  ITR  TO  BE  DELETED?  " 

ACCEPT  "  ENTER  YES  OR  NO  *===r:>"  TO  DELCHK 
IF  ! (DELCHK)  =  • NO « 

STORE  T  TC  DELTHRO 
EL  5E 

“IF  !  (DELCHK)  =  'YES* 

ERASE 

3  12, 3C  SAY  "DELETING  ITR" 

STOSS  T  TO  DELTHRU 

USE  A  :  PER  S  INDEX  A:AL?H?ERS,  A  :  PE  R  SSN  ,  ; 

A : MOS  KDX 
FIND  E AASSN 
IF  . NCT.  #  *  0 
DELETE 
PACK 
ENDIF 

USE  A  : CMM NT  INDEX  A: CMMNT3SN 
FIND  SAASSN 
If  .NCT.  #  =  0 
DELETE 
PACE 
ENDIF 

USE  B:CUAL  INDEX  £;QUAL5SN 
FIND  E AASSN 
IF  .NCT.  #  =  0 
DELETE 
PACK 
ENDIF 

USE  BlEST  INDEX  E:ESTSSN 
FIND  SAASSN 
IF  .NCT.  *  *  0 
DELETE 
P  A  C  F 
ENDIF 

USE  B  :  INF OKI  SC  INDEX  A:INrGS3N 


22  1 


I 

I 

t 

i 

» 


FIND  SAASSN 
IF  .NCI.  *  =  0 
DELETE 
PACK 
ENDIF 
ENDIF 
ENDIF 
ENDDO 
ENDIF 

S1CRE  F  TO  DEIDONE 
DC  WHILE  .NOT.  DELCONE 
ERASE 

a  12,20  SAY  "  EC  YOU  WANT  TO  DELETE  ANOTHER  RECORD?  " 
ACCEPT  "  I ?TEF  YES  CR  NO  -===*===>  "  TO  DELCHK 

IF  JJDELCHK)  *  ‘NO’ 

STCRE  T  TO  EELDONE 
STORE  T  TO  EFLFINI 
ELSE 

“if  l(DELCHK)  =  ’YES' 

STORE  T  TC  DELDCNE 
F N  DIP 
ENDIF 
E  N  EDO 
ENDDC 

RELEASF  ALL  EXCEPT  A  A  <????? 

RETURN 


i 


*  *-< 
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a  'OF 


C.  S1STIH  FUMCTIOS  CC1TBOL  ROUTINE 


Routine  Natae:  Systen.prg 
Module  Natae:  Maintenance  Module 
Version:  6.5.0 
Author:  D.P.  Haeusler 
Date:  30  Jan  1984 
Varieties  Osefl:  aaccirple. 


sysopt 


aacomple,  sysopt 

■3-k  1  A  cw  cn  T'l*' 


Variables  Modified. - -  —  . 

Variables  created:  aacomple,  sysop* 

Variables  Released:  aacomple,  sysopt 
Files  tcpened/clos« a)  :  none 
Temporary  Fil^s  Created:  ijone 

Using  Subroutines:  Maintain. prg  _  _  . . 

Description:  This  module  creates  the  tner.u  rot  aAi  .a 
system* function  notifications.  It  is  a  restricted 
and  car  only  be  accessed  by  a  user  with  a  author  iza;._c^ 
level  cf  1.  The  nodule  then  can  choose  the  apprcptia -°- 
sufcrcutine  corresponding  to  the  option  selected. 


STORE  F  10  AACOMPLE 
CO  WRITE  .NOT.  AACOMPLE 

1^6^29  SAY  "  SYSTEM  PUNCTION  MENU  " 

e.24  SAY  "  SELECT  ORE  CF  THE  FOLLOWING  Oc-TIO^S 
"I.  ..INSTALL  SYSTEM" 

"  S.  ..  SYSTEM  RESET  (Y  EARLY  |  " 

"A.  ..ACCESS  LIST  MAINTENANCE" 
"C...CUIT  TO  MAINTENCE  MENU" 

ENTER  OPTION  =  =  =>"  TO  SYSOPT 


a 

a 

a 

a 

a 


c  g  i.  n  w _ 

10.31  SAY 

11.31  SAY 
12,21  SAY 

a  13,31  SAY 
ACCEPT  " 

DC  CASE 

CASE  1  (SYSOPT)  =  "I" 
STORE  F  TO  AACOMPLE 
DO  BS  INSTALL 
CASE  I  (SYSOPT)  *  "S" 
STORE  F  TO  AACOMPLE 
DO  B:  SYS3ESEY 
CASE  !  (SYSOPT)  =  "A" 
SICRE  F  TO  AACOMPLE 
EC  B: RSTACCSS 
CASE  1  (SYSOPT)  *  "Q" 
SICRE  T  TO  AACOMPLE 
ENECASE 
ENDEC 

RELEASE  ALL  EXCEPT  A  AT  ????? 

EFLEASE  AACCHPLE 

RETURN 


>  V 


* 


* 
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J.  SYSTEM  ISSTAIATIC1  ROUTINE 


Soutine  Name:  Install. prg 
Module  Name:  Maintenance  Module 
Version:  6.5. 1 
Author:  D.P.  Haeuslet 
Datf:  7  Feb  84 

Variables  Used:  *cc,  *olt  .  crntyr 
Variables  Modified:  *co,  *plt,  crntyr 
Variables  Created:  none 

Variables  Released:  all  ..  , 

Piles  (cpenea/closed)  :  a:  unitmem.  iea,  a:memdisk  .mem 
Temporary  Files  Created:  temp. mem 
Using  Subroutines:  System. prg 

Description:  This  routine  stores  the  appropriate  values 
in  the  memory  files  that  the  system  uses  to  describe  the 
units  that  are  m  the  battalion.  It  also  establishes 
the  current  year  tkat  is  used  for  error  checking  and 
calculations 


a : memdis  k . me  m 


SAVE  10  TEMP 
RELEASE  ILL 
ERASE 

FESTCFE  F PC  K  A  :  U  NITMEM 
2  3 , 3  C  SAY  "SYSTEM  INSTALLATION" 

2  5,15  SIY  "ENTER  THE  NAMES  OF  YOUR 
2  7,15  SAY  "COMP  ANY/ E  ITTERY  #1" 

2  7,34  GET  CNECO  PICTURE  "XXXXXX" 

2  8,15  SAY  "COMFANY/E  ITTERY  12"- 
2  8,  34  GET  TWOCO  PICTURE  "XXXXXX" 

S  9,15  SIY  "COMPANY/E  ATTERY  #3" 

2  9,34  GET  THREECO  PICTURE  "XXXXXX" 

3  10,15  SAY  "COMEANY/tATTER 1  #4» 


a  10,34 

READ 
STORE  ! 
STORE  ! 
STORE  1 
STORE  ! 

erase 
a  3 , 3  c 

2  5,  15 
2  7,15 
2  7,26 
a  8,15 
a  8,26 
2  9,15 
a  9.26 

a  io,  15 


TEMP 

ILL 


SIY  ■ 
SAY  ' 
GET  < 
SAY  ' 
GET  ' 
SIY  1 
GET  ' 
SAY 


COMPANY  SIZE  UNITS" 


FOURCO  PICTURE  "XXXXXX" 


2  10,26 
BEAD 

STORE  !  ( 
STORE  1  ( 
STORE  !  ( 
STORE  t  ( 
SAVE  TC 
ERASE 
RELEASE 
RESTORE 
2  12,25 
ACCEPT  " 
SAVE  TC 
RELEASE 
BESTCFE 
RETURN 


!  (CNECO).  TO  ONECO 
!  (1HOCO)  TC  TWCCO 
'  THREECO)  TO  THREECO 
(FCDFCO)  TO  FCURCO 

SAY  "SYSTEM  I KSTALLATIC N" 

SAY  "ENTER  THE  NAMES  OF  PLATOON  SIZED  UNITS" 
SAY  "PLATCON  «1" 

GET  CNEPLT  PIC10RE  "XXXXXXXXX” 

SAY  "PLATCON  12" 

GET  TWO  PL  T  PICTURE  "XXXXXXXXX" 

SAY  "PLATCON  13" 

GET  T  HR  E  E  PL  T  PICTURE  "XXXXXXXXX" 

SAY  "PLATOON  14" 

GET  FOURPL1  PICTURE  "XXXXXXXXX" 


!  (CNEPLT)  TO  ONEPLT 
1  (TfcCELT)  TO  TNCPLT 
!  (THREEPLT)  TO  THR5EPLT 
!  (EOUEPLT)  TO  ECURPLT 
0  UNITMEM 


ONEPLT 


ALL 

FRC  I  A: MEMDISF 

SAY  "ENTER  TEE  CURRENT  YEAR" 
YEAR  (YY)  =  =  =  >" 

A : MEMDISK 
ALL 

IRC  S  TEMP 


CRNTY R 
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SYSTEM  BESET  ROUIISE 


*  Routine  Name:  Sysreset.prq 

*  Module  Name:  Maintenance  ficdule 

*  Version:  6.5.2 

*  Author:  E.P.  Haeusler 

*  Date:  4  Feb  84 

*  Variables  Used:  crntyr,  reset,  rgreset,  don?,  q*,  *cc 

*  Variables  Modified:  crntyr,  reset,  rgreset,  done,  q*,  *co 

*  Variables  Created:  reset,  rgreset,  done 

*  Variables  Released:  all 

*  Files  (cpened/closed)  :  a:  mendisk.  mem,  a:unitmem . mem, 

*  Temporary  Files  Created:  temp. mem 

*  Using  Subroutines:  System «prq 

*  Description:  This  routine  sets  all  the  values  to  the 

*  default  value  for  the  fields  that  are  reset  yearly.  The 

*  information  is  then  stored  in  the  data  base  for  each 

*  individual.  It  also  stores  the  yaarlv  projections  on 

*  the  rarge  quotas  tc  a  memory  file  that  can  be  recalled  by 

*  routines  that  use  these  values  for  calculations. 


SAVE  TO  TEMI 
BSLE  ft  er:  ill 

FESTC  '  M  A:  M  EM  DISK  ADDITIVE 

ER  ft  S  E 

3  10.  '  "ENTER  TEE  CURRENT  YEAR" 

ACCEP.  YEAR  (YY)  ===>"  TO  CRNTYR 

SAVE  To  «  :  M  EMDISK 
RELEASE  ALL 
STORE  F  TC  CONE 
CO  WHILE  . NCT.  DCNE 
ERASE 

3  10.15  SAY  "DO  YCO  WANT  TC  RESET  RANGE  QUOTAS  FOR 
THE  YEAR?" 

ACCEPT  "  ENTER  (Y  OR  N)  =  =  ==>"  TO  RESET 

IF  JJFESET)  *  '  Y 1 
STCRE  T  TO  DONE 
STCRE  T  TO  RGRESET 
ELSE 


IF  l(EESET)  =  'N* 

STCRE  T  TO  CCNE 
STCRE  F  TO  RGRESET 
ENDIF 
ENCIE 

ENDDO 

IF  RGRESET 
ERASE 

RESTOFE  FROM  A: AR  NGQTAS 

RESTORE  FROM  A:  U  NIT  ME  M  AEDITIVE 

a  3,15  SAY  "ENTER  RANGE  QUOTAS  AS  PROJECTED,  ; 

FOB  THE  YEAR," 

a  4,15  SAY  "FOR  UNIT:  " 

a  4,25  SAY  CNECO 

3  6,  15  SftY  "J  ANUftRY" 

a  6,23  GET  Q J  AN  PICTURE  "999" 

a  2,  15  SAY  "FEBRUARY" 

a  7,24  GET  OP  EB  PICTURE  "999" 

a  8,15  S  AY  "M  ARCH" 

a  6,21  GET  Q  M AR  PICTURE  "999" 

a  9,15  SAY  "APRIL" 

a  9.21  GET  Q APR  PICTURE  "999" 


a 

10,  15 

SAY 

"MAY" 

a 

10,19 

GET 

OKA  Y  EICTURE 

tig  gg  ii 

a 

11,  15 

SAY 

"  ju  y  e  " 

a 

iOo 

GET 

QJUN  PICTURE 
"JULY" 

ng  gg  it 

a 

12,  15 

SAY 

a 

12,20 

GET 

Q  JU  L  PICTURE 

ii g  gg  ii 

a 

13,  15 

SAY 

"AUGUST" 
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a 

13,22 

GET 

Q AUG  PICTURE 

”959" 

a 

14,15 

SAY 

" SE  PT  E  EBEH" 

a 

14,  25 

GET 

QSEP  EICTURE 

ii  9  gg«» 

a 

15,15 

SAY 

"CCTOEER" 

a 

15,23 

GET 

QCCT  PICTURE 

n  9  5  g  h 

a 

16,15 

SAY 

" NO VE  C  EE  R" 

3 

16,24 

GET 

QN0  7  PICTURE 

ii  9  9911 

a 

17,15 

SAY 

"  EECEFEER" 

a 

17.24 

GET 

Q EEC  PICTURE 

"9  99" 

READ 

RELEASE 

ALL 

EXCEPT  Q??? 

S A  YE  10 

A:ARNGQTAS 

RELEASE 

ALL 

RE 

STORE 

FROM 

A:  BRKGCTAS 

RESTOFE 

FROM 

UNITMEM  ADDITIVE 

ERASE 

a  2.15  SAY  ’’ENTER  RANGE  QUOTAS  AS 
FOR  THE  YEAR,” 

a  4,15  SAY  "FOR  UNIT:  " 

a  4,25  SAY  TWCCO 

a  e,15  SAY  ’’JANUARY” 

a  6,23  GET  QJAN  PICTURE  "999" 

a  7,15  SAY  "FEBRUARY” 

a  7,24  GET  QFEB  PICTURE  ”999" 

a  8,15  SAY  "MARCH" 

a  8,21  GET  OMAR  PICTURE  "999" 

a  9,15  SAY  "APRIL” 

a  5.21  GET  QAFR  PICTURE  "999" 


a 

10,  15  SAY 

"MAY" 

a 

10,19  GET 

QCAY  EICTURE 

<«9  99  t« 

a 

11,  15  SAY 

"  JU  N  E  " 

a 

11,20  GET 

QJIJN  PICTURE 

119  99  11 

a 

12, 15  SAY 

"JULY" 

•a 

12,20  GET 

Q  JU L  EICTURE 

119  99  tt 

a 

13,  15  SAY 

"AUGUST" 

a 

13,22  GET 

Q AUG  EICTURE 

M9  99  M 

a 

14,  15  SAY 

"SEPTEMBER" 

a 

14,25  GET 

QSEP  EICTURE 

11999  n 

a 

15, 15  SAY 

"OCTOEER" 

a 

15,23  GET 

QCCT  PICTURE 

•i  9  9  9  11 

a 

16, 15  SAT 

"NOVEMEER” 

a 

16,24  GET 

Q  NO  V  EICTURE 

ng  99  11 

a 

17,  15  SAY 

"DECEMBER" 

a 

17,24  GET 

QDEC  EICTURE 

<19  99  11 

RE  AC 

RELEASE  ALL 

EXCEPT  C ??? 

SAVE  TO  A:  BRN  GOT  AS 

RELEASE  ALL 

ERASE 

RE 

STORE  FROM  A :  C B KGCT  AS 

RESTOFE  FROM  UNITMEM  ADDITIVE 

a 

3,15  SAY 

"ENTER  FANGE 

CUCT AS 

FOR 

TEE  YEAR, 

11 

a 

4,15  SAY 

"  POH  UNIT:  " 

a 

4,25  SAY 

THREECC 

a 

6,1?  SAY 

” JANUAFY" 

a 

6,22  GET 

QJ  AN  PICTURE 

.999511 

a 

7,15  SAY 

" FEB  RU  A  F Y " 

a 

7,24  GET 

QFEB  PICTURE 

ti  g  g  511 

a 

6,15  SAY 

"MARCH” 

a 

6,2  1  GET 

OMAR  PICTURE 

it  5  9  gti 

a 

9,15  SAY 

"APRIL" 

a 

9.2  1  GET 

Q APR  PICTURE 

n  g  g  511 

a 

10,15  SAY 

"MAY" 

a 

10,  19  GET 

OMAY  PICTURE 

11 9  99*1 

a 

11,15  SAY 

"JUNE" 

a 

11, 20  GET 

QJUN  PICTURE 

11  g  5  9  it 

a 

12,15  SAY 

"JULY” 

a 

12, 20  GET 

QJUL  PICTURE 

n  9  99" 

PROJECTED, 


PROJECTED, 
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d 

FOR 


13,  15 
13,22 

14,  15 
14,25 
15,15 
15',23 

16,  15 

16.24 

17,  15 

17.24 
READ 
RELEASE 
SAVE  TO 
REIEASE 
ERASE 
RESTORE 
RESTOFE 


SAY 

GET 

SAY 

GET 

SAY 

GST 

SAY 

GET 

SAY 

GET 


"  AUGUST" 

Q AUG  EICTORE  "999" 
"SEPTEMBER" 

QSEP  PICTURE 
"OCTOEER" 

QCCT  PICTURE 
" NOVEMEER" 

Q  NO  V  PICTURE 
" DECEMEER" 

QD2C  PICTURE 


tig  gg  tc 
ng  gg  it 
t«g  gg  tt 
tig  gg  tt 


ALL  EXCEPT 
A:CRNGQTAS 
ALL 


Q??? 


hi- 


A: DR  SGQTAS 
UNITMFM  ADDITIVE 


FROM 
FROM 

SAY  "ENTER  RANGE  CUCTAS  AS  PROJECTED, 


a 

4,15  SAY 

'FOR  UNIT:  " 

a 

4,25  SAY 

FOURCO 

a 

6,15  SAY 

"  JANUAFY" 

a 

6,  2‘i  GET  QJ  AN  PICTURE  " 

99  9" 

a 

7,15  SAY  "FEBRUARY" 

a 

7,24  GET 

OF EB  PICTURE  " 

99  S" 

a 

8,15  SAY 

'MARCH" 

a 

8,21  GET 

OMAR  PICTURE  " 

9  99" 

a 

S ,  1  5  SAY 

n  A  PHIL" 

a 

9.2  1  GET 

2 APR  PICTURE  " 

999" 

a 

10,15  SAY 

"MAY" 

a 

10,  19  GST 

QMAY  PICTURE 

"9  99" 

a 

11,15  SAY 

"JUNE" 

a 

11,20  GET 

QJUN  PICTURE 

"999" 

a 

12,15  SAY 

"JULY" 

a 

12,20  GST 

QJUL  PICTURE 

«i  g  ggti 

a 

13,15  SAY 

"AUGUST" 

a 

13,22  GET 

OAUG  PICTURE 

iigggn 

a 

14,15  SAY 

"  SEPT E  EBER" 

a 

14,25  GET 

QSEP  E ICTUS  E 

ngggn 

a 

15,15  SAY 

"CCTOEER" 

a 

15,23  GET 

QCCT  PICTURE 

ii  g  ggii 

a 

16,15  SAY 

"  NOVEMEER" 

a 

16,24  GET 

QNO V  PICTURE 

ii  g  g  g  n 

a 

17,15  SAY 

" DECS  EEER" 

a 

17,24  GET 

QDEC  PICTURE 

"9  99" 

READ 

RELEASE  ALL 

EXCEPT  Q??? 

SAVE  TO  A:BSNGQT AS 

RELEASE  ALL 

ENDIF 
RESTOFE 
STORE  F 


FROM  TEMP 
TO  DONE 
,  NCT.  DONE 


CO  WHILE 
ERASE 

a  12,  * 

VALUES" 

S  13.24  SAY 
ACCEPT  " 

IF  JiEESET)  = 
STCRE  T  TO 
USE  E  :  ES  T 
REPLACE  ALL 
REPLACE  ALL 
REPLACE  ALL 
REPLACE  ALL 
REPLACE  ALL 
REPLACE  ALL 
REPLACE  ALL 
REPLACE  ALL 


4  SAY  "CO  YOU  WANT  TO  RESET  YEARLY  TRAINING; 


"IN  TEE  DATA 


'  Y* 

DONE 


BASE  FOR  THE  3 ATT ALI ON ? " 

ENTER  (Y  OR  N)  ====>"  TC  RESET 


114*  4" 

•1*44" 
it**  4" 

•I  ***********  II 
•I  **  *11 

PFT1RAW  WITH  000 
PF11D&TS  WITH  "DDMMYY" 


coc 

HIS 

CCD 

INT 

AID 

UNI 


WITH 

WITH 

WITH 

WITH 

WITH 

WITH 


REPLACE 

REPLACE 

REPLACE 

REPLACE 

REPLACE 

REPLACE 

REPLACE 


ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 


OSE  E  :OU  AL 


PFHCLSS 
PFTIRAW 
PFI2DATE 
PPT  2CLSS 
NBC  WITH 
MK  S  WITH 
TAC  WITH 


REPLACE  ALL  HFLSCORE 
REPLACE  ALL  R  f ICO  AL 
REPLACE  ALL  RF IE ATE 
REPLACE  ALL  PS1SCORE 
REPLACE  ALL  PS1CUAL 
REPLACE  ALL  PSTEATE 
OSE 
ELSE 

IF  !  (RESET )  *  f  R * 
STORE  T  TO  ECNE 
ENCIF 
ENEIE 
ENDDC 

RELEASE  ALL  EXCEPT  AA????? 
RETORN 


WITH  •'*" 

WITH  000 
WITH  M DDMH YY " 
WITH  "*•' 

M  ** ** *  *" 
1l**.*+**1t 
«***♦*•• 

WITH  “***" 
WITH  "**" 

W  ITH  "DDHMYY” 
WITH  *'***" 
WITH  "**" 

with  "Dcaarr* 


7 
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E 


system  access  comoL  routine 


*  Routine  Name:  Rstaccss.prq 

*  nodule  Nate:  Maintenance  Module 

*  Version:  6.5.3 

*  Author:  D.P.  Haeusler 

*  Date:  8  Feb  84 

*  Variables  Used:  thru,  ac*,  more,  lines,  done,  cent 

*  Variables  Modified:  same  as  above 

*  Variables  Created:  same  as  above 

*  variables  Released:  all 

*  Files  (cpened/closed)  :  a :  security  (o/c) 

*  Temporary  Files  Created:  none 

*  Using  Subroutines:  System. prq 

*  Description:  This  routine  allows  users  with  an  access 

*  level  cf  1  to  update  the  access  list. 


STORE  F  TO  THRU 
DO  WHILE  .NCT.  THRO 
ERASE 

2  8,28  SAT  "  SECURITY  ACCESS  LIST'* 

c  -,2%.  SAY  "  CHOOSE  OFTICN  TO  BE  EXECUTED" 


3  f  i  t  . 

11,24 


SAY 
SAY 

13.24  SAY 

14.24  SAY 

ii 


12,24 


W  I  ,  £ 

ACCEPT 
DC  CASE 


L..  .LIST  ALL  USERS" 

A..  .ADD  TO  ACCESS  LIST" 

D... DELETE  FRCM  ACCESS  LIST" 
Q...CUIT  TC  SYSTEM  FUNCTION  MENU" 
ENTER  OPTION  =  =  =  >"  TO  ACCOPT 


CASE  !  (ACCOPT)  =  "L" 
USE  A:SECURITY 


DO 


,  NCT , 


INDEX 

EOF 


ACCESS 


CONTINUE  ♦  **" 


A: ACCNAME 

WHILE 

PR  1  C  p 

3  3, 24  SAY  »  SECURITY 
35,1  SAY  "NAME 
PASSWORD  LEVEL  " 

STORE  1  TC  LINES 
DO  WHILE  .NOT.  EOF  .AND.  LINES 
3  LINES, 1  SAY  NAME 
3  LINES, 20  SAY  USERID 
3  LINES, 41  S  AY 
3  LINES, 56  SAY 
SKIP 

STORE  (LINES  ♦ 

IF  LINES  >  22 
d  23,15  SAY 


LIST" 

USER 


NO 


<  22 


USER? ASS 
AUTHLEV 

2  )  TO  LINES 


SET  CCNSOLE 
WAIT 

SET  CONSOLE 
ENDIF 


"***  PRESS  ANY  KEY  TO; 

CFF 

CN 


ENDDC 
ENDDO 

a  23,15  SAY  "*** 
SET  CONSOLE  CFF 
WAIT 

SET  CONSOLE  CN 
OSE 

CASE  !  (ACCOPT)  =  "A" 
ST  CEE  T  TO  EC  RE 
DC  WHILE  MOPE 
ERASE 
STORE  " 

STORE  "  " 

STORE  " 

STORE  0 
3  10,25 

a  10,30 
a  12,25 


PRESS  ANY  KEY  TO  CONTINUE  ***" 


"  TO  ACN  AMT 
"  TC  ACCUSER 

"  TO  ACCFASS 
TC  ACCLEV 

SAY  "NAME  OF  USER" 

GET  ACNAME  PICTURE 
SAY  "USER  ID" 


"XX XXX XXX XX XX XXX" 


229 


a>  12,33  GET  ACCUSEF  PICTURE  "XXXXX" 
a  14,25  SAY  "PASSWORD" 

a  14,34  GET  ACCPASS  PICTURE  "XXXXXXXX" 
a  16,25  SAY  ''AUTHORIZATION  LEVEL" 

3  16,45  GET  ACCLEV  PICTURE  "9" 

RE  A  D 

STORE  T  TC  NOGO  CD 
DO  WHILE  NOGOOD 

IF  (ACCLEV  <  1)  .OR.  (ACCLEV  >  3) 

a  23,1  SAY  "  ILLEGAL  AUTHORIZATION  LEVEL 

- REENTER" 

8  16,45  GET  ACCLEV  PICTURE  "9" 

REAL 
E  LS  E 

STCFE  F  TC  NCGOOD 
ENDIF 
ENDDO 

USE  A: S  E  CORITY  INDEX  A: ACCNA  ME  ,  A : SEC  I ND  X 
APPEND  BIANK 

REPLACE  NAME  WITH  !  (  ACN  AM  E)  ,  ; 

AUTHLEV  WITH  ACCLEV 

REPLACE  DSERID  WITH  !  (ACCUSER),; 

USERPASS  WITH  !  (ACCFASS) 

US  E 

STORE  F  1C  DONE 
DO  WHILE  .NOT.  LONE 
ERASE 

a  10,25  SAY  "  DO  YOU  KANT  TO  ENTER  ANOTHER; 

USER?" 

ACCEPT  "  ENTER  (¥  OR  N  )  ===>»; 

TO  CONT 

IF  !  (CCNT)  =  "Y" 

STCFE  T  TC  CCNE 
ELSE 

IF  1  (CONT  )  ^  " N" 

STORE  T  TO  DONE 
STORE  F  TC  MORE 
ENC1P 
ENDIF 
EUDDO 
ENDDO 

C  ASE  !  (ACCOPT)  =  "D" 

STORE  T  TO  EC R E 
DC  WHILE  MORE 
ERASE 

a  12,24  SAY  "  ENTER  NAME  0?  THE  USER  TO  EE; 

DELETED" 

a  13.24  SAY  "OR  QUIT  TO  REENTER  ACCESS  MENU  " 
ACCErT  "  NAME  =  =  ==>"  TO  ACNAME 

STORE  !  (ACNAME)  TO  ACNAME 
IF  ACNAME  =  "QUIT" 

STORE  F  TC  M  C RE 
ELSE 

USE  A  :  SECUEI TY  INDEX  A ; ACCN  AMS,  A:SECINDX 
FIND  EACNAME 
IF  #  =  0 

a  22,28  SAY  "INDIVIDUAL  NOT  FOUND  IN; 

FILE" 

a  23,  24  SAY  "***  PRESS  ANY  KEY  TO; 

CONTINUE  **♦" 

SET  CONSOLE  OFF 
WAIT 

SET  CONSOLE  CN 
ELSE 

DELETE 

ENDIF 

USE 

ENDIF 

USE  A: S  ECURITY  INDEX  A: ACCNAME ,  A:SECINlX 


£N 

ENDDC 

BELLA 

BETOE 


C 

EC 


PACK 

USE 

ENEDO 

ASE  t  (  AC  COP  T) 
STCEE  T  TO  1 
ASE 


=  »Q 
HEU 


ii 


SE  AIL  EXCEPT  AA?????? 
N 
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